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SYSIMGACT = Image Activator System Service 18-Sep-1984 a a 1} ve 1 Al ALD toe 


14-Sep-1 


; 1 001 ZTITLE "SYSIMGACT = Image Activator System Service’ 
Pec 8 O0¢ Q MODULE SYSSINGACT ( ' , 
; ? Boe pOENT = 'v04-001 ! File: SRC$:SYSIMGACT.B32 
5 5 9005 BEGIN 
: ? 0007 } ppetangiamger pee qgennyy aatigsan peer og ener 
° .* te 
; 9 b08 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
23 010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; 1} 3p : is ALL RIGHTS RESERVED. * 
Py ; © 
; Mi O08 1 !® THIS SOFTWARE 5 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s 616 014 1 Ie ae IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
‘pe | 0015 1 !* INCLUSION OF tHE ABOVE gg NOTICE. THIS SOFTWARE OR ANY OTHER * 
; *% Bats 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
femme fg 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: + id : i; TRANSFERRED. * 
Py ; * 
: 0 0020 1 !* THE got IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: sg 8p ; : :* CORPORATION. . 
a Base 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $2 pose : ~ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
° , a 
; si itt 1 !® * 
H . 34 | Le R RARER ERE REE E AERA EEAAEAAAAAAAAAAAAEREEAAREREEEE 
2 $080 1 !++ 
: att ' Facility: 
; $2 $e } Executive, System Service 
; 0035 Abstract: 
: 7 0037 1! This module contains the code necessery to map a portion of process 
: $8 Bees ; address space to a particular image file. 
; re Bead : Environment: 
: $5 Bpeg 1! The bulk of the code in this module executes in executive mode, in 
; «6 00435 1! a layer outside RMS. One routine executes a small amount of code in 
|; rt} Qo4s ; corabl mode. 
3 48 org ! Note that the image activator is not reentrant. 
; 48 048 ; Author: 
; 3 3 : Lawrence J. Kenah 
: 2§ 032 1! The original version of the waage activator was written by Peter Lipman. 
: e 83? ! During Version 2 of VMS, extensive enhancements were made by Kathy 
;. & $5 1 i —— 
: § 2$ ' Creation Date: 
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239: AX-11 Ol iess3e EP ct 
-Sep- 214: SYS.SRCISYSIMGACT.832; 
LJKO289 wrence J. Kenah 7-Sep-1984 


Make SET VECTORS” (sos into a zero-pass loop if there is no 
work to do. 


MSHO056 Michael S. Harve 2-Jul-1984 
og yey new code for previous fix so the merged 
activation path for a CLI doesn't get screwed up. 


MSHO05S6 Michael S. Harvey 21-Jun-1984 

When a My ng A spege e must be substituted (such as 

with or a primary image, make sure to 
reinitialize the proper context variables, thus preventing 
Executive mode bugchecks. 


ence J. Kenah 5-Jun-1984 
> flap bit in TRAGCTX that indicates to SINGF IX that 
shareable images contain initialization code. 


LJK0283 ence J. Kenah 11-May-1984 

Set the DONE bit’ in walt ICBs that result tren, a successful 
activation so that they do not disappear in a later 
activation that fails. 


LJK0276 Lawrence J. Kenah 8-May-1984 
Make sure that ICBs are not left dangling when an image 
has already been activated or along error paths. 


LJKO274 Lawrence J. Kenah 16-Apr-1984 
Fix ERROR_CLEAN_UP routine. 
LJK0269 Lawrence J. Kenah 31-Mar-1984 


Miscellaneous small changes. 

Add code that cleans up if an oer is detected after 

some pages have been successfully mappe 

Set internal status bit that ind ye that the PO half 

of a Pl merge operation is taking = ace 

Change the way that priyileged we or context is stored. 
Return correct context e is pirees stye** 

Add state rege passed tron" $ MGACT to $SIMG 

Add error routine that performs a complete em (ly 

an error occurs after an image has been successfully mapped. 
Defer addition of privileged vectors until fixups are done. 


LJK0268 Lawrence J. Kenah 29-Mar-1984 
Turn on code that records SHRENT and USECNT ty KFE. 
LJK0267 Lawrence J. Kenah 28-Mar-1984 


Use name stored in KFE as global section name. This allows 
correct redirection of shareable images installed 7SHARED. 


LJK026 Lawrence J. Kenah 27-Mar-1984 
Add major and minor ID consistency checks on the 
image header. 
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=32 V4.0-74 Page 3 SYS! 
Sep- SYS.S YSIMG 


att B32; (1) v04- 


1 11 
1 11 VO3B-012 MSH0022 Michael S$. Harvey 25-Mar-1984 
: 1} Unconceal known file Lookups. 
1 11 
: Call RMSSET to set up image 1/0 area. 
1 VO3B-010 wMc0002 none Cardoza 23-Jan-1984 
1 Misc small fixe 
: Add sequential. toading of images. 
1 VO3B-009 LJK0244 Lawrence J. Kenah ges -1983 
: Turn on image accounting. Set default stack size 
1 v038-008 wMc0001 Wayne Cardoza 05-Aug-1983 
1 Remove code for passing back FAB on failure. 
v03B8-007 JK0242 Lawrence J. Kenah 2-Aug-1983 
had support for writable global sections. 
VO3B-006 LJK0235 Lawrence J. Kenah 26-Jul-1983 


Add concept of inage base address, different con starting 
address. Continue fixing bugs and cleaning up loose ends. 


vO3B-005 LJK0232 Lawrence J. Kenah 21-Jul-1983 
The starting address of the image 1/0 segment should 
be page aligned. 


v03B-004 LJK0230 Lawrence J. K 18-Jul-1983 
Add system version check. Add "801 suffix te yt image name. 
v0O3B-003 LJK0228 Lawrence J. K 12-Jul-1983 
Propogate setting of EXPREG a, into the ICB. 
vO3B-002 LJK0219 Lawrence J. Kena 29-Jun-1983 


Add support for Sonpes oe Tee a and other alias images. 
Fix the many bugs that were discovered during debugging. 


v03B-001 LJK0200 Lawrence J. Kenah 15-Apr-1983 
Being a complete rewrite of the original tnaee activator 
system service. 
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SYSSIMGACT YSIMGACT = Image Activator System Service hese -1984 02:39: AX-11 Bliss-32 V4.0-74 Pa 4 
vouout eclarations ° 12-808- 1382 96:72:38 OVS SREISTSIMGALT 3565 ” (2) 

138 H ZSBTTL ‘Declarations’ 

2 ? SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
8 6 PSECT 

64 6 CODE = YFSSSYSIMGACT (WRITE), 

9? ? PLIT = YFSSSYSIMGACT (WRITE, EXECUTE); 

ef ? LIBRARY ‘SYSSLIBRARY:LIB.L32'; ! Define system data structures 

69 REQUIRE tfBS: IReNSeDEE Ris: ' Get status code definitions 

4 REQUIRE "LIBS: IMGACTCTX.R32'; ! Define internal structures 

ie ! Machine dependent features 

74 BUILTIN 

75 MOVCS, 

76 MOVPSL, 

77 TPR 

78 PROBER, 

79 PROBEW, 

INSQUE, 

1 REMQUE; 

5 ! Miscellaneous internal symbols 

5 LITERAL 

° TRUE = 1 


E ‘. 
EXEC_PROT™= (PRTSC_UREW * 8) OR PSLSC_EXEC; 
! Linkage declaration for procedures invoked with the SCMKRNL system service 
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96 LINKAGE 
44 SYS_CMKRNL = CALL : GLOBAL (PCB = 4); 
+4 ! Internal references 
01 FORWARD ROUTINE 
4 CHECK_PARAMS, 
INIT QINDOW + SYS_CMKRNL, 
04 CHECR_MATCH_CONTROL, 
05 GET_OTHER_IMAGE, 
06 END- PROCESSING 
0 SET-CONTROL_REGION : SYS_CMKRNL, 
08 GET_LOCK, 
09 3? RELEASE LOCK, 
10 40 ER CCEAN_UP : NOVALUE, 
1 4} SET_VECTORS; 
ig rk ! Routines that will be referenced by the ISD mapping routines as well 
1° re ! as internally 
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SYSSIMGACT SYSIMGACT = Image Activator System Service 1hete $ep-1984 02:39: AX-11 Bliss-32 V4.0-7 Page 6 

yon.00% Declarations ° ’ 12-808= 1382 96:72:38 SYS.SRC SYSIMGACT Bae: ° (2) 

: 73 ; } MMGSCRETVA : SYS_CMKRNL; 2 | 
i 905 9 1 ! External data cells in P1 space ; | 
3 7 208 1 EXTERN oN s | 
: 278 5 8 1 CTLSAG_CMEDATA, ai 
: 279 5 1 CTLSAL “STACK : VECTOR C4], ; 
; 280 510 1 CTLSA ‘ST sPy . 1 
; 28) 5111 CTL$GC_CTLBASVA, i 
: 28 21§ 1 CTLSGL_FIXUPLNK, | 
; 28 5131 CTLS$GL—IMGHDRBF , e-7 
: 284 21 1 CTLSGL~PHD : REF $BBLOCK, oe 
: 5 16 1 CTLSGL-RMSBASE, ae | 
3; 286 0316 1 CTL$GL-VOLUMES, i] 
: 287 517 1 CTL$GQ-PROCPRIV : VECTOR | S| 
: 288 318 1 IACSAW_VECSET : VECTOR c “WORD, o] 
; 289 519 1 IACSGL_ICBFL : VECTOR a 
; 290 520 1 IACSAL_IMGACTBUF , | 
: 291 0521 1 IACSGL"FIRST_ICB, ; | 
; 29 05 § 1 IACS$GL_ IMAGCTX : S$BBLOCK, s | 
; 29 05 1 IAC$GL_MAIN_ICB | 
: 29% 0524 1 IAC$GL_WORK-LIST : VECTOR £2 ? =] 
: $99 0525 1 IACSGL— IMAGE _ LIST : VECTOR C2), Se 
; 2% 0526 1 IACS$GL-STACK “SIE, | 
: 690 03g? | P1OSGW~ TIOINPA : SBBLOCK; ; | 
: 239 32 : ' ! The following cells in Pl space are used exclusively for image accounting : 
; 301 0531 1 EXTERNA i 
; 30 05 3 1 CTLEGL._ ICPUTIM, = 1 
; 30 0533 «(1 CTLS$GL_IFAULTS | 
> 304 0534 1 CTLS$GL-IFAULTIO, : 1 
; 305 0535 1 CTL$GL_IWSPEAK, a. 
3; 306 0536 1 CTL$GL_-IPAGEFL, ei 
; 307 0337 1 CTL$GL_IDIOCNT, -- | 
; 308 0538 1 CTL$GL~IBIOCNT ; 
: 309 0539 1 CTLSGL-IVOLUMES, 3 | 
: 310 O349 | CTLSGO"ISTART : VECTOR (2); | 
3 \ b2e6 1 ! External data cells in system space : 
: 34 O54 | EXT e 
: 315 0545 1 OE XeSGL ~ACHELAGS : S$SBBLOCK, | 
: 16 0946 1 EXESGL-FLAGS : $BBLOCK, : 
: 31 547 1 XESGL-KNOWN_FILES, 3 | 
; 318 248 1 EXESGL-SYSID-LOCK, | 
; 319 549 1 EXESGQ-KFE_LUKNAM, 4 
; 320 550 1 EXE$GQ- ~SYSTIME : VECTOR (2), - i 
3 1 231 SGNSGW_ IMGIOCNT : WORD; : 
: § 338 i ' ! Miscellaneous constants defined elsewhere : 
: 325 335 1 EXTERNA LETERAL : 

: § 5 § 1 EX SYSEFN : UNSIGNED (6), : 

: 557 1 EX i INIT : UNSIGNED (6) , | 
: 8 358 1 SYS$K~VERSION : UNSIGNED (315; si 
s 329 559 1 g i 

| 
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ie Activator System Service 16-50-1984 96:32:38 AX-11 Ol ieee 


n 14-Sep-1 SYS.SRC 
1 ! Make the bit position of the INIT flag available to BLISS 

MACRO EXE_V_INIT = 0, EXESV_INIT, 1, 0 %; 

Some miscellaneous address definitions 


The first part of the image activator scratch area is divided up into two 
args Breese each of which is further subdivided into a FAB, a NAM block 
5T2-byte block into which each succeeding block of the image header will 

e read, and a buffer that will receive the decoded image header. The 

decoded image header is assumed to be smaller than a page. The area that 

follows these buffers is used as OWN storage by the image activator. 


l 
a 
b 


LITERAL 
INPUT BUFFER SIZE = BYTES_PER_PAGE, 
IHD_BOFFER_SIZE = BYTES-PERPAGE; 
BIND 
INPUT_BUFFER = IACSAL_IMGACTBUF 
PRIMARY IHD = INPUT BUFFER + 512, 
AUX_BUFFER = PRIMARY IHD + 512. 
AUX" IHD = AUX_BUFFER + 512, 
PRIMARY_FAB = AUXIHD + 54 
PRIMARY-NAM = PRIMARY_FAB + FAB$K_BLN, 
AUX_FAB = PRIMARY-NAM + NAMSK~BLN, 
AUX~NAM = AUX_FAB + FABSK"BLN, 
RESOLT_NAME = AUX"NAM + NAMSK~BLN 
OWN_STORAGE = RESOLT_NAME + NAMSC"MAXRSS : S$BBLOCK; 


! There are eight pages set aside in P1 space (in module SHELL) for 
! the image activator scratch area. The following assumption guarantees 
! that the scratch area that is defined here fits into eight pages. 
SASSUME ( OWN_STORAGE_SIZE + (2 * (INPUT BUFFER_SIZE + 
IHD _BOFFER_STZE + 
ABSK_BLN * 
NAMSK-BLN) ), 
Lee 
* BYTES_PER_PAGE ); 
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11 
SYSSIMGACT SYS INGACT - Image Activator System Servic 15-Sep-1984 a 14 AX-11 Ol ieee eho te 
v04-001 EXESSIMGACT = Image Activator System Service Ro 14-Sep-1984 15:14: SYS.SRCISYSIMGACT.832; 
: 10 ; 9 } XSBTTL 'EXESSIMGACT = Image Activator System Service Routine’ 
; if ae GLOBAL ROUTINE EXESSIMGACT 
H 7 6 § 1 (IMAGE _NAME_ADDR , DEFAULT _NAME_ADDR , BUFFER , CONTROL_FLAGS , 
; i 603 1 INADR > RETADR , [DENT , MODE )~= 
; i: £08 | 14s 
: a Oe : } FUNCTIONAL DESCRIPTION: 
: 379 608 1} This routine receives control from the system service dispatcher 
; SY 208 : to perform the actual work of activating an image. 
; 8¢ eit | CALLING SEQUENCE: 
; 8 bet § i CALL. G*SYSSIMGACT 
: 386 St FORMAL PARAMETERS: 
: 387 Boi8 1! 
pmo Be 
3 90 0619 1 | STATUS CODES: 
: 39 0621 1: TBS 
{394 0638 1 
: 95 O6g4 ¢ BEGIN 
: 397 0626 2 BUILTIN 
; 398 06 AP, 
3 +4 be 3 CALLG; 
: 401 0630 2 BIND FLAGS = OWN_STORAGE CINPUT_FLAGS] : SBBLOCK; 
a BBE cocm 
> 404 5638 ICB_ADR REF SBBLOCK. 
; 405 0634 IHD_CTX : SBBLOCK CCTX_K_LENGTH], 
3 rey 88 5 STATUS; 
3 408 06 ; ! The portion of the impure area that is used as OWN storage is filled with 
; 409 bese ! zeros. This initializes system service parameters, copies of input 
; $19 O72 ! parameters, and the Like. 
: tig 41 CHSFILL (0 STORAGE SIZE, OWN STORAGE); 
> 41 ote OWN_STORAGE CFIRAL_STATOS) = SS$_RORMAL; ! Assume suc essful completion 
; 213 $7 OWN=STORAGE CUSER_STACK_SIZEJ = EXTRA_USER_STACK; ! Assume a minimal user stack 
: 7! 45 ! No access check is required for the activation flags, which are present in 
3; «(41 4) i the argument list itself. A safe copy must be made, however, to insure that 
; 418 ! the flags are not destroyed by a mapping request issued by the image 
; $3? 8 ! activator. To avoid this, the flags are stored away in a safe place. 
; ? 1 39 OWN_STORAGE CINPUT_FLAGS) = .CONTROL_FLAGS; 
; 6 7 § § TF aFLAGS CIACSV SETVECTOR] 
: 2 : Z THEN RETURN SET_QVECTORS(); 
+ 426 5 ! Save the callers mode for use in various checks 
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Image Activator System Serv 14-Sep- SYS.SRCISYSI 


MOVPSL (OWN_STORAGE CCALL_MODE) ); 
! Set up the starting points for the various privileged vectors 
INCRU 1 FROM 0 TO 3 DO 

BEGIN 


BIND 
DISPVEC = CTLSA_DISPVEC + (.1 * 256) : LONG; 


DISPVEC = .IACSAW_VECSET C.1); 
END; 


! The input parameter List is checked for accessibility and the parameters are 
! stored in the impure area for later use. 


STATUS = CALLG (.AP, CHECK_PARAMS); 
IF NOT .STATUS THEN RETURN .STATUS; 


' Several other miscellaneous areas need to be initialized if this is 
! not a activation that merges an additional image into existing address 
! space. Note that the fixup vector Listhead is unconditionally cleared. 


CTLSGL_FIXUPLNK = 


0; ! Set the fixup vector List to empty 
imc -FLAGS CIACSV_MERGE] 


BEGIN 
RMSRESET (); 
IACSGL_IMAGCTX 


2? Clear the image 1/0 segment 
OWN_STORAGE CMAIN_PROGRAM] = TRUE; 


4 

' Start with a clean context slate 

! Indicate that this is the activation 
! of a main program 


BIND CONTEXT = JACSGL_IMAGCTX : VECTOR C2,WORD); 
content Ci] = 0; ! Only clear flags passed to SIMGFIX 
! Before we open the imoge file, we need to check whether the image is already 
! mapped. If it is, wes mply return successfully, passing back as much data 
! as is available about the image. 
STATUS = IMGSALLOCATE_ICB (ICB_ADR); ! Allocate an ICB for the primary image 
IF NOT .STATUS THEN RETURN .STATUS; 
! The following check is only made for a merge activation 
IF _ .FLAGS CIAC$SV_MERGE) 
THEN 
BEGIN 


BIND 
INPUT_NAME = OWN_STORAGE CIMAGE_NAME_DESC) : SBBLOCK, 


mage Activator System service - 15-Sep-1984 96:32:38 AX-11 B bY es 


<n 
< 
“” 
P= 


IF BUFFER NEQU 0 

THEN 
BEGIN 
BIND IFD = BUFFER C3) : SBBLOCK; 
BUFFER 
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BUFFER 
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SYSSIMGACT YSIMGACT = Image Activator System Servic 16-Sep-1984 02:39: AX-11 Bliss-32 V4.0-74 
vou=001 XESSIMGACT - igege Activator System Service Ro 122865-1 388 9 42:88 SYS .SRCISYSIMGACT B32¢ ea J 
484 713 ICB_NAME = ICB_ADR CICBST_IMAGE_NAME] : VECTOR C,BYTEJ 
485 714 RETADR = .OWN_STORAGE CRETURN_ARRAY ADDRESS] : VECTOR (2), 
oa8 fi? BUFFER = .OWN_-STORAGE LBUFFER-ADDRESS) : VECTOR (128); 
488 aS LOCAL 
re) t8 MAPPED_ICB : REF $BBLOCK; 
$3) f y ice NAME CO] = .INPUT_NAME COSC$W_LENGTH); 
49 7 INPUT_NAME CDSCS$W_LENGTH) 
494 , § ; ANPUT .NAME CDOSCSA_POINTER], 
496 705 XREF (ICBSS_IMAGE_NAME=1), 
497 7 § 1CB_NAME ); 
498 f STATUS = IMGSIS_IT_MAPPED (ICB_NAME; MAPPED_ICB); 
00 7 § ! If the shareable image has already been mapped, we return successfully 
4! 4 , ! after passing back to the caller whatever information is available. 
08 g ¢ IF .STATUS EQL SS$_NORMAL 
B2 ; BEGIN 
7 IF RETADR NEQU 0 
7 THEN 
73 BEGIN 
1 7 RETADR (0) = .MAPPED_ICB pb] CBSE START Ne ADDRESS); 
: = .MAPPED_ICB CICBSL_END_ADDRESS)J; 
1 7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
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0) = 0; 
1} = if; 
BUFFER (2) = 0; 
IFD CIFDSW_CHAN) = .MAPPED_ICB CICBS$W_CHAN); 
FDSW_FLAGS] = - IACSGL_IMAGCTX; 


pa A mo 


4 
4 
4 
4 
5 RETADR (1) 
4 END; 
4 
4 
4 
; 
; 
5 
5 
P] 
5 
4 
4 
4 
4 
4 
: 
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; 
4 75 IFD CI 
5 75 
$ a END; 
3 73 IMGSDEALLOCATE_ICB (.ICB_ADR); 
0 Fae RETURN SS$_NORMAL; 
1 760 
¢ 761 END; 
3 re END 
5 764 : 
765 IACSGL_FIRST_ICB = .1CB_ADR; ! Remember address of this ICB 
; 66 IF .OWR STORAGE CMAIN_PROGRAM) 
8 76 THEN JACRGL. MAIN_ICB = .ICB_ADR; ' Remember it here, too, if main program 
i; 9 ICB_ADR CICBSL_CONTEXT) = IAD_CTx; i Store address before opening image 
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BEGIN 
IMGSDEALLOCATE_ICB (.ICB_ADR); 
RELEASE_LOCK (J; 

eon » STATUS 


' Several other fields in the ICB must be loaded with information obtained 
! from the input parameter List. 
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SYSSIMGACT SYSIMGACT = Image Activator System Servic 1B-$e -1984 02:39: AX-11 Bliss-32 V4.0-74 
v04-001 EXESSIMGACT - ieege Activator system Service Ro 1 ~300 71382 96:72:38 SYS.SRC SYS TaGALT b3e, ances (4) 
> 541 77 STATUS = GET _LOCK(); ! Lock the KFE data base for read 
: ry Me IF NOT .STATOS THEN RETURN .STATUS; meson 
: 544 77 STATUS = IMGSOPEN_IMAGE ( ! Open the image file 
> 545 774 OWN_STORAGE CIMAGE_NAME Dest). . ' 
: 546 775 OWN-STORAGE CDOFLT_RAME_BESC), 
; 547 £06 PRIMARY_FAB, 
: 548 77 PRIMARY _NAM, 
3 ri ure mis we NAME , 
; 551 780 2 IF NOT .STATUS 
; 28 78) THEN 
; 7 § BEGIN 
; 554 7 IMGSDEALLOCATE_ICB (.ICB_ADR); 
; 555 784 RELEASE_LOCK (J; 
: 56 0785 RETURN .STATUS 
; rH Bf $ END; 
; 559 Ores ! The IHD_CTX context block stores the image header data that does not need 
; 560 0789 ' to exist once the image activator is done. Because this ICB represents the 
; 561 0790 ! image whose name was passed directly to the image activator, the primary 
3 208 149! ! input buffer and IHD buffer are used. 
; 564 $798 IHD_CTX CCTX_L_BUFFER] = INPUT_BUFFER; 
; 269 0796 IHD-CTX CCTXZLIIHDBUFJ = PRIMARY_IHD; 
: 567 79 STATUS = IMGSGET_HEADER (.ICB_ADR); ! Decode and store away the IHD contents 
: 568 $799 IF NOT .STATUS ~ i“ . 
HR BBE Ecc 
3 Sri 0800 SDASSGN (CHAN = .ICB_ADR CICB$W_CHAN]); 
; 27¢ 0801 ERROR_CLEAN_UP (); 
: 57 080¢ IMGSDEALLOCATE_ICB (.1CB_ADR); 
: 574 080 RELEASE_LOCK (J; 
3; 37s 0804 RETURN .STATUS 
3 278 Bebe END; 
; 578 OB09 ! There are several alias images that cause a secondary image to be activated, 
; 579 080. : coav ine the primary image opened and its name stored in P1 space for later 
: 280 st ! possible use by the secondary image, the one actually activated. 
3 Be 33 IF .IHD_CTX CCTX_W_ALIAS] NEQ IHDSC_NATIVE 
; 58 8 THEN 
3 rf: +4 BEGIN 
3 5 STATUS = GET _OTHER_IMAGE (.1CB_ADR); 
3 Hy 8 IF NOT .STATOS 
3 8 THEN 
; 588 8 4 
; 589 4 
; 590 4 
3 4 4 
: 38 
3 594 
: 336 
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SYSSIMGACT SYSIMGACT = Image Activator System Servic 16-Sep-1984 02:39: AX-11 Bliss-32 V4.0-74 P 2 SYS! 
vousO0% EXESSIMGACT - igege Activator System Service Ro 1 =3007 1382 96:72:88 SYS. SREISYSINGACT 03065 ws HB V04- 
; 598 7 2! Note that EXPREG is only valid when mapping into PO space. Note further that 2 iC 
; 599 ! the input ~ range is spec ed oxet tly, rather than rod the EXPREG : 1¢ 
; 600 ! flag in the ICB, which is onty meaning ul n 18s for shareable images : i 
: 60) ! implicitly referenced during the activation of the primary image. : ie 
: 60 ; IF .FLAGS CIACS$V_EXPREG) : 1¢ 
; 604 THEN 3 1 
; oR? : BEGIN : \ 
: ooe 836 BIND : 1 
: one PHD = .CTLSGL_PHD : SBBLOCK; : it 
: 610 bR39 ICB_ADR CICBSL_STARTING ADDRESS] = .PHD CPHDSL_FREPOVA]; 3 1 
; 611 rk} ICB_ADR CICBSL-END_ADDRESS) = END_OF_PO_SPACE; : 1¢ 
: ol¢ 4) END 3 9S 
; 61 SK ELSE ; 1 
; 614 84 BEGIN 3s 1¢ 
; 615 0844 ICB_ADR pi Sesh ag TART ING pogness = .OWN STORAGE CINPUT_START_ADDRESSJ; : 1¢ 
>; 616 0845 ICBLADR CICBSL-END_ADDRESS] = .OWN_STORAGE CINPUT_END_ADDRESSJ; 3s 1 
: ou one 3 END: ii 
; 619 0848 2 ICB_ADR FICBSB_ACCESS MODE) = .OWN_STORAGE CACCESS_MODE); If 
; 620 0849 ICB_ADR CICBSB_ACT_COBE) = 3 1 
; 621 0850 (IF FLAGS CIACSV_MERGE) 3 1 
; 6 ; 0851 THEN ICBSK_MERGED_ IMAGE 3 1 
; 6 B826 ELSE ICBSK-MAIN_PROGRAM) ; 3 46 
> 624 085 ADR CICBSL_AATCH lage. = ,OWN STORAGE CMATCH CONTROL); 3 1¢ 
3 $ ; pe2e ICB-ADR CICBSL-VERSION) = .OWN_STORAGE CVERSION); : it 
; os? Be28 ! The image control block is inserted into the work List where it can be : 1 
; ? : tt ! retrieved by the routine that converts ISDs into mapping requests. : \f 
: 88 0859 INSQUE (.ICB_ADR , .JACSGL_WORK_LIST (1)); ! Insert at tail of work List 3 1¢ 
; 631 0860 2 STATUS = IMGSDO_WORK_LIST(; ; 10 
: ? § Bae) IF NOT gStAlUS THEN : Vi 
: 634 Ones ERROR CLEAN UP (); : 1 
; 635 864 RELEASE_LOCR (); 3 1¢ 
: 6 865 RETURN .STATUS 3 1¢ 
em ye i 
; 639 0868 STATUS = END PROCESSING (.1CB_ADR); ! Set final state for image 3 1¢ 
: on9 r¥34 IF 9 THEN : M4 
; 64¢ art ERROR CLEANUP (); : 1 
; 64 ars RELEASE LOCK Q; 3 1 
: 644 7 RETURN .STATUS 3; 1 
: oe? 1h) END; : \$ 
; $49 Bre RELEASE_LOCK(); ! Allow exclusive access again : 1¢ 
; 648 tH RETURN <OWN_STORAGE CFINAL_STATUS); i... and return ; it 
: 650 879 END; ! End of routine EXESIMGACT main routine ; \ 
31 

TITLE SYSSIMGACT SYSIRGACT ~ Image Activator System S$ 3 1 

; ervice : 1 
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vous00t EXESSIMGACT - inage Activator System Service Ro 1 
03 2° } 4 
0000V CF FA 
9 4 
5 E B 
000000006 00 04 E 
OE 6A 4 50 64 
000000006 00 16 68 
cM BB 85 
02 AB BA O00%6 
SE DD 0078 
0000V gf } F 078 
9 8 DO 000 g 
03 5 8 
0156 31 
38 ee 12 1 00080 
85 OC AA DO 00091 
56 FC AA 00 4944 
68 EC AA 90 00099 
50 FO AA 00 444 
27 00 60 FS aa ec 4 
50 af DO Q00A9 
00000000G 00 16 OOOAC 
3% 39 bt 000RS 
gp 12 00088 
7 05 OOOBA 
04 13 000BC 
7 aaa 
16 03 000C4 
a at 
04 A6 50 00 Sooce 
08 <A6 04 000D 
08 a0 OE Al BO 000D 
10 ad 6B BO 0000 
6E— 0D itd 
0000V 44 : 4 0 Of 
8 88) 
5 6f Dd 8 E 
000000006 Dd EA 
BC AA €E9 OOOFI 
peseney G 9 52 DO OO0FS 
A 04 =A E FC 
0000v gf F 1 
33 eB O01 
0008 5 10¢ 
pp 10F 
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#3 
(AP), CHECK_PARAMS 
RO, STATUS ~ 
Erber ‘sue NK 
FLAGS. 3S 
angr RESES 
TAC $GL_IMAGCTX 
, OWR_STORAGE 


” gaetbt 
#1, {PGSALLOCATE. ICB 
srt a We 


5u° FLAGS, 9$ 

#26, ICB_ADR, R8 
OWN. STORAGE+80, R7 
OWN STORAGE+64, R6 
IN NPOT_N NAME, (R8) 
INPUT "NAME $4, 


RO 
INPUT" ~NAME, (RO), 


pol S,1T MAPPED 
THs, #) 


(R7) 


4 

) 

APPED_ICB), 8(RO) 
SADR IMAGCTX, 16(RO) 
“I 

R 


D 
AO a I¢cB 


ULT NAME 
MARY _NAM 


== 


#0, #39, 


1(R8) 
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12 
SYSSIMGACT SYSIMGACT = Image Activator System Servic 1b-3¢ =1984 239: AX-11 Bliss-32 V4.0-74 
v04-001 EXESSIMGACT - idege Activator System Service Ro 1 =30071 388 96:72:38 OYS SREISTSIMGALT 03279 
FDSD CA 9F 00119 PUSHAB PRIMARY_FAB 
F4 AA OF 0011 PUSHAB OWN_STORAGE+5 
EC AA 9F 001 PUSHAB OWN~STORAGE+4 
0000v cf FB 001 CALLS m6, IMGSOPEN_ IMAGE 
9 dO 001 MOVL RO, STATU 
40 : 128 LBC STATUS, 13$ 
04 AE F55D CA 9E O010E MOVAB INPUT BUFFER, IHD_CTX 
8 AE F75D cA 9E 00134 MOVAB PRIMARY_IHD, IHD_CTX+4 
é DD 0013A PUSHL Re 
0000v cf " FB 0013C¢ CALLS #1, IMGSGET_HEADER 
9 g DO 00141 OVL RO, STATUS 
12 5 : D144 LBS STATUS, 
7E OE A2 3¢ 00147 MOVZWL 14(R2), =(SP) 
000000006 00 01 FB O14 CALLS #1, SYSSDASSGN 
0000V CF 09 FB 13 CALLS #9 ERROR_CLEAN_UP 
15 11 or BRB 13$ 
FFFF BF 12 AE BI 139 12$: CMPW IHD_CTX+14, #1 
1g 13 0015F BEQL 14$ 
52 DD 00161 PUSHL  R2 
0000v CF 01 F 0165 CALLS #1, GET_OTHER_IMAGE 
59 20 DO 0016 MOVL RO, STATUS 
09 9 €8 00168 BLBS § STATUS, 14$ 
52 DD OO16E 13$: PUSHL R2 
0000v CF 07 FB 0017 CALLS #1, IMGSDEALLOCATE_1CB 
63 11 9017 BRB 20$ 
16 6A 05 €1 00177 14%: BBC #5, FLAGS, 15$ 
50 000000006 00 DO 0017B MOVL  CTLSGL_PHD, RO 
48 =A AO 00 00182 MOVL 40(R0) 72(R2) 
4C Ad 3FFFFFFF 8F DO 0018 MOVL #1073741823, 76(R2) 
05 11 0018F BRB 16$ 
48 = A2 04 AA 7D 00191 15$:  MOVQ OWN_STORAGE+72, 72(R2) 
OC A2 20 AA 90 00196 16$:  MOVB OWN-STORAGE+106, 12(R2) 
05 6A 04 £1 0019B BBC #4, FLAGS, 17$ 
50 02 DO 0019F MOVL 2 
03 11 OO01A2 BRB 18$ 
50 01 DO OO1A4 17$:  MOVL 1, R 
0D ag 50 90 OO1A7 18$:  MOVB RO. 13(R2) 
40 A 18 AA 7D OO1AB MOVQ OWN_STORAGE+92, 64(R2) 
50 000000006 00 9€E 00180 MOVAB IACSGL_WORK_LIST+4, RO 
00 60 62 OE 0187 INSQUE (R2), SOC(R 
000000006 00 00 FB 001B CALLS #0, IMG$DO_WORK_LIST 
59 50 DO 001C MOVL RO, STATU 
OD 59 €9 O01C LBC STATUS, 19$ 
: DD 0018 PUSHL ICB_ADR 
0000v CF FB OOICA CALLS #1, ~END_PROCESSING 
59 : DO OOICE MOVL RO, STAT 
OE E O10e BLBS STATUS, 22$ 
0000v CF 0 FB 00105 19$: CALLS #0, ERROR CLEAN_UP 
0000V CF 0 FB 1DA 08: CALLS #0, RELEASE_LOCR 
50 9 B0 1D 1$: ROVL STATUS, RO 
0000v cr 00 FB Fg 22$: CALLS #0, RELEASE LOCK 
0 CC AA p 1E MOVL  OWN_STORAGE?16, RO 
4 OO1EC RET 
; Routine Size: 493 bytes, Routine Base: YFSSSYSIMGACT + 0000 
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SYSSIMGACT SYSIMGACT = Image Activator System Service 1-56 -1984 02:39: AX-11 Bliss-32 V4.0-74 Page 17 SYS 
v04-001 CHECK_PARAMS = Check Accessibttity and Store Pa 12-808=1 982 96:92:38 Ueys .SRE SYS IMGAYT 6325 Pat (4) v04 
: $3 peo ! ZSBTTL 'CHECK_PARAMS = Check Accessibility and Store Parameters’ ; Y 
; ss OB, ROUTINE CHECK_PARAMS (NAME ,DEFAULT,BUFFER,FLAGS, INADR,RETADR,IDENT,ACMODE) = : \ 
a é 4 4 t4 3:1 
3 bof 5 } Functional Description: : Y 
: 659 $ 1/ This routine probes each input parameter for read access and stores 7 1 
; 660 0888 1 ! the value of the parameter in a safe place. Output parameters are probed 1 
; $0 +43 : for write access and their addresses are stored for later use. . 1 
3 oss 089) } Calling Sequence: : 1 
: 09? 0898 : CHECK_PARAMS (NAME ,DEFAULT,BUFFER,FLAGS, INADR,RETADR, IDENT ,ACMODE) : Y 
: 667 0898 1 i- 3 7 
: 668 Bane 1 3; 7 
: 669 089 BEGIN 27 
: 670 0898 By 
3; 671 0899 LOCAL : J 
; 67 0900 SAFE_PLACE, i ) 
: 67 0901 STATOS; ‘ 
: 674 090 3; 3 
; of? 84 ! Define some synonyms for the local storage called SAFE_PLACE ; Y. 
: 677 0905 2 BIND 37 
; 678 0906 LOCAL _ E = SAFE_PLACE : REF S$BBLOCK, ° 1 
> 679 0907 LOCAL-DFLT = SAFE-PLACE : REF S$BBLOCK. 2 
; 680 0908 LOCAL-BUFFER = SAFE-PLACE, I: V 
> 681 0909 LOCAL-INADR = INADR : REF VECTOR, 21 
; 68 0910 LOCAL-RETADR = RETADR : REF VECTOR, 27 
: et +4 LOCAL_IDENT = SAFE_PLACE : REF VECTOR; ‘ : 
; oe? o31§ ! Define some more synonyms for the two file name descriptors : \ 
: 687 0915 2 BIND 3 7 
; 688 0916 NAM_DSC = OWN_STORAGE CIMAGE_NAME_DESC] : $BBLOCK, 2) 
; 689 O97 DFLT_DSC = OWN STORAGE CDFLT_RAME DESC) : $BBLOCK; : 1 
: 691 0919 ! The image name is the only required parameter for the image activator. If an mi 
3 $8 +4 Y ! image name is not present, this routine returns with an IMGS$_NONAME error. : y 
: 6% O9¢¢ ¢ LOCAL NAME = NAME; 21 
: 695 09 IF .LOCAL_NAME EQL 0 7 
3 696 924 THEN 3; ¥ 
3; 69 0925 RETURN IMG$_NONAME 3% 
: 698 9 § ELSE 

3 3.44 9 BEGIN 

3 00 928 4 IF NOT (STATUS = EXESPROBER_DSC ( 

; 701 929 4&4 ~LOCAL_NAME ; 

: 70 930 4 NAM_DSC CDSC$W_LENGTH) 

: 70 931 4 NAM~DSC CDSCS$A~POINTERS)) 

s?. 9 § THEN 

; 705 9 RETURN .STATUS 

3 4 , : END; 

: 708 936 2! The default name descriptor is probed and stored in a similar fashion. No 
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SYSSIMGACT SYSIMGACT = Image Activator System Service 16-Sep-1984 02:39: AX-11 Bliss-32 V4.0-74 Page 18 
vou=001 CHECK_PARAMS = Check Accessibility and Store Pa 12286871382 96:72:08 SYS.SRCISYSIMGACT 03229 . (4) 
; 108 33 ! error occurs if the default name is missing. 
s 7ii 9 LOCAL_DFLT = .DEFAULT; 
; ue 94 IF .LOCAL_DFLT EQL 
Ee «| 941 THEN 
: 714 arg BEGIN 
3s i$ 94 DFLT_DSC POS CSW LENGTH = 0; 
; at 944 DFLT_DSC CDSCSA_POINTER) = 0; 
: 945 END 
; 718 Bee ELSE 
; 719 94 BEGIN 
: 720 Baek 4 IF NOT (STATUS = EXESPROBER_DSC ( 
: 721 949 4 ° T; 
 F 2 0950 4 DFLT_DSC COSCSW_LENGTH 
: 7 951 4 DFLT=DSC CDSCSA-POINTERS)) 
: 724 226 TH 
3 red 95 RETURN .STATUS 
3 £s6 0954 END; 
s fer 0955 
: 728 8238 ! The address of a 5i2=byte buffer is tucked away after the buffer is 
; 729 095 ! checked for write access. 
; in 0958 ! 
H ey 3494 NOTE WELL 
3 538 961 ! Because the image activator issues calls to other memory management ayeten 
; 734 096 ! services, the protection on this buffer may change. This buffer must be probed 
3 te? Seer ! again by the completion code before anything is written to the buffer. 
; 737 0965 LOCAL _BUFFER = .BUFFER; 
; 738 096 IF (.COCAL_BUFFER NEQ 6) 
: 739 096 AND 
: 760 0968 (NOT PROBEW (ZREF(O), ZREFCRETURN_BUFFER_SIZE), .LOCAL_BUFFER)) 
3: 741 0969 THEN RETURN SS$ a ty 
; ee 944 ELSE OWN_STORAGE BUFFER_ADDRESS] = .LOCAL_BUFFER; 
3 6744 097 '!! NEED TO PROPOGATE SOME OF THE FLAGS INFORMATION INTO OTHER OWN STORAGE 
3; «745 097 ''! CELLS. ALSO NEED TO DO CONSISTENCY CHECKS BETWEEN FLAGS AND OTAER 
; re pare '!! INPUT PARAMETERS. 
: 748 3976 ! The input address range array g oats + the address range into which the 
: P38 bop ! image is to be mapped. It must be readable by the caller. 
cae $375 LOCAL_INADR = .INADR; 
: beg 980 IF (.COCAL_INADR NEQ 0) AND (NOT PROBER (ZREF(O), ZREF(8), ~LOCAL_INADR) ) 
2 ££ 981 THEN RETURN SS$_ACCVIO; 
3 754 9 é IF .LOCAL_INADR™NEQ 
; 755 98 THEN 
3 £28 9 BEGIN 
:; £ 985 
3 oe 9 IND 
3; 759 9 FLAG_BITS = OWN_STORAGE CINPUT FLAGS] : $BBLOCK 
; r60 +3 ADDRESS_RANGE =" OWN_STORAGE IRPUT_START_ADDRESS) : SBBLOCK; 
s 6 990 OWN_STORAGE CINPUT_START popes ss. = ,LOCAL_INADR 0: 
; 263 333 OWN-STORAGE CINPUT~END_ADDRESS) = .LOCAL_INADR (1); 
: 765 99 


! We need to remember that this is the PO part of a Pl merge operation 
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! because certain steps taken in a ‘‘real’’ activation must not take place. 


IF ¢ 
tah CIACSV_P1MERGE)) 


(NOT (ADDRESS RANGE CVASV_P1])) 


GA 
_?P 
4 
5 
4 
5 
4 
THEN 
OWN_STORAGE CP1_MERGE_PO] = TRUE; 
END; 
The caller can epee tsy the address of an array that will receive the 
C 
' 
' 
' 
1 


<“” 
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ee 


! address range into which a collection of images was mapped. This array 

! is probed for write access and set to contain FFFFFFFF in both elements, 
! indicating that no mapping has yet occurred. Note that this array, like 

! the output buffer must be probed again by the completion code before the 
! actual return address arra is written to make sure that the accessibility 
; 9 a ree has not changed as a side effect of a system service call 

! issued by the 


pee Ts ee 


image activator. 


LOCAL_RETADR = .RETADR; 
IF (.COCAL_RETADR NEQ 0) AND (NOT PROBEW (ZREF(O), %REF(8), .LOCAL_RETADR)) 
THEN RETURN SS$_ACCVIO; 
RETURN_ARRAY_ADDRESS] = .LOCAL_RETADR; 
RETURN-START-ADDRESSJ = -1; 
* RETURN-END_ADDRESS] = -1; 
IF gLOCAL_RETADR NEG 0 


BEGIN 
LOCAL_RETADR £03 = -1; 
LOCAL -RETADR 1 


= -1; 


! The caller can specify explicit match control information that will be 
seageres Oe the version number contained in the image that is actually 
! activated. 


LOCAL_IDENT = .IDENT; 

IF (.COCAL_ IDENT NEQ 0) AND (NOT PROBER (ZREF(O), %REF(8), .LOCAL_IDENT)) 
THEN RETURN SS$_ACCVI1O; 

I tata caeatid NEQ 0 


Seas 


BEGIN 
OWN_STORAGE (MATCH CONTROL) = “LOCAL DENT C0); 
OWN"STORAGE CVERSION] = .LOCAL_IDENT (1); 
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ay END 
§ ! The final input parameter is the access mode that will be used for two 
04 ! purposes. The channel on which the image file is opened will have this 
4 ! access mode associated with it. The pages that are mapped will be owned 
45 by the mode specified by this parameter. 
$ i Because an access mode of kernel is meaningless, a missing ACCESS OOS 
rt ! parameter is interpreted as uses mode. If a nonzero value is present in the 
4 ! argument List, it is first maximized with caller's mode and then stored in 
050 ! a safe place. 
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A AX-11 Bliss-32 V4.0-74 
P 459 8iag B32 g 
IF .ACMODE EQL 0 

THEN 
1 


SYS.SRC ACT .B32; 


EL gE CMNSSTORAGE CACCESS_MODE] = PSLSC_USER 
EXESMAXACMODE (.ACMODE; OWN_STORAGE CACCESS_MODE)); 
RETURN SS$_NORMAL 


! End of routine CHECK_PARAMS 


007C 00000 staat adiat 


wo Save R2,R3,R4,R5,R6 
56 000000006 00 9€ 0000 MOVAB EXESPROBER DSC, R6 
28 000000006 88 9E 20908 MOVAB ODFLT_DSC 
54 04 AC 00 00010 MOVL § NAME> LOCAL_NAME 
08 if 0014 BNEQ 1$ 
50 O84D8CCC «BF 20 0016 MOVL #139300044, RO 
51 54 00 OO01E 1$: MOVL _ LOCAL_NAME, R1 
$6 16 000 JSB EXESPROBER DSC 
FB AS 1 BO 00023 MOVW R1, NAM_DSC 
FC OAS 38 DO 00027 MOVL R2, NAM~DSC+4 
19 E9 999 B BLBC STATUS, ~3$ 
54 08 AC 09 00 : MOVL § DEFAULT, LOCAL_DFLT 
07 1 00 BNEQ 2$ 
65 B4 000 CLRW DFLT_DSC 
04 AS D4 00036 CLRL ——dDELT=DSC+4 
10 11 00039 BRB 4$ 
51 54 D0 00 2$: MOVL LOCAL_DFLT, R1 
$6 16 000 JSB EXESPROBER DSC 
65 1 BO 0004 MOVW Ri, DFLT_DSC 
04 AS 38 D0 0004 MOVL  R2, DFLT“DSC+4 
01 5 E 004 3$: BLBS STATUS, &$ 
4 QO04A RET 
54 oc A 09 0048 4$: MOVL UFFER, LOCAL_BUFFER 
BEQL 
13 0004F 
64 0200 8F 0 9091 PROBEW #0 #512, (LOCAL_BUFFER) 
: 1 7 BEQL 108 
08 AS 4D 29 5$: MOVL § LOCAL_BUFFER, OWN_STORAGE+64 
50 14 AC D0 p ROVL LOCAL “INADR, R 
03 6 TSTL RO 
BEQL 6 6$ 
é INCL R1 
60 08 0 9 PROBER 40 #8, (RO) 
4F BEQL 108 
1 51 E F 6$: BLBC 1, 7$ 
10 A 0 7D : mova (RO), OWN STORAGE +72 
09 oC A E1 BBC #6, FLAG BITS 
4 13, OA ; BBS #6. ADDRESS RANGE+3, 7% 
cBoOCO«AA BISB2 #32, OWN STORAG 
50 18 AC D 78: LOCAL_RETADR, R 
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v04-001 INGSOPEN IMAGE : Open Next Inage File 1 ~3ep-19 4 9 32:38 OVS SREISTSIMGALT B35¢5 . (& 
3 é ¢ ] 6} } XSBITL ‘IMGSOPEN_IMAGE = Open Next Image File’ 
: § 1 28 1 GLOBAL ROUTINE IMGSOPEN_IMAGE (NAME _DESC , DFLT_DESC , 
; 8 1064 1 FAB-ADDRESS , NAM_BLOCK_ADDRESS , 
; 838 1392 1 NAME _STRING ‘ 1CB_POINTER) = 
es i $6 i '+ 
: 841 1988 ; Functional Description: 
: Be 1090 1 i This routine opens an laage file as a process permanent file for 
3 sie 137) : } subsequent use by one of the memory management system services. 
; 846 1978 Calling Sequence: 
; Bc 1075 {  IMGSOPEN_IMAGE () 
: 636 1997 } Input Parameters: 
: o2¢ 1078 ! NAME_DESC = Address of string descriptor for image file name 
: 854 1081 1! DFLT_DESC = Address of default name descriptor 
s 855 1088 1 !- 
; 856 1083 1 
3; 857 ORE BEGIN 
OB baw 
: 860 1087 NAME_STRING : REF VECTOR; 
BBS ana 
: B63 1090 = .FAB_ADDRESS : $BBLOCK, 
3; 864 1091 NAME_BLOCK = .NAM_BLOCK_ADDRESS : S$BBLOCK, 
; 865 1998 cB = .ICB-POINTER : SBBLOCK, 
; 866 109 DEV_CHAR = FAB Pragst Deva : S$SBBLOCK 
; 867 1094 ICBINAME = ICB CICBST~IMAGE_NAME] : VECTOR C, BYTE); 
; 869 1096 ! Create synonyms for the CTX and STV fields in the FAB 
: Bh 1998 5 BIND 
; 87¢ 1099 CHAN = FAB CEABSL STV}, 
; 87 1100 KFE = FAB CFABSL_CTX : REF SBBLOCK; 
HTB baw 
: 2 1108 _DESC : REF $BBLOCK, 
; A ie 3 DFLT_DESC : REF SBBLOCK; 
: 879 11 LOCAL 
; ret 1 STATUS; 
: a 11 5 ! Once the system is fully initialized, RMS and the file system can be used 
3 1319 i to open the various image files. Until that time, the bootstrap file 
3 111 !' routines must be used. At least two images, SYSINIT.EXE and F11BXQP.EXE, 
3 5 a ! are activated along this alternate code path. 
: 1114 2 IF .EXESGL_FLAGS CEXE_V_INIT) 
: 1115 THEN 
$ 9 1338 BEGIN 
; 90 111 
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von2001 MeSOPEN IMAGE : Open Next Inage File 12-88-1382 96:72:38 OYS SREISTSINGALT 3003 . 3} 
91 P SFAB_INIT ( 
95 P FAB = FAB, 
9 P FNS = .NAME_DESC (DSC$W_LENGTH] 
894 P FNA = .NAME-DESC [DSCSA-POINTERI, 
895 B DNS = .DFLT_DESC [DSCSW_LENGTH] 
4 P DNA = .DFLT_DESC DSCSA~POINTERI, 
89 a NAM = NAME_BLOCK, 
898 P FOP = 
899 P KFO , ' Use the known file data base 
900 P PPF , ' Process permanent file 
901 P $a0 ! Network optimization 
90 P UFO F i User file open 
90 P CTX = ' KFE address will be returned here 
ape P RTV = - ! Insure that WCB completely maps file 
906 . 
it FAB CFABSV_CHAN_MODE) = .OWN_STORAGE CACCESS_MODE); 
90 ! The image files associated with writable global sections are opened 


! for write access. All other image files are opened for execute access. 
IF .I1CB CICBSV_OPEN_FOR_WRITEJ 
THEN 


BEGIN 
FAB CFABSB_FAC] = FABSM_PUT; 
FAB FABSB-SHR] = FABSM~SHRGET OR FABSM_SHRPUT OR FABSM_UPI; 


i) a 


BEGIN 
FAB CFABSB_F AC = FABSM_EXE; 
FAB CFABSB~SHR] = 0; 


! If we are currently running an executable image installed with privilege, 
! we must direct RMS to only use the logical name tables that cannot be 
! redefined by user mode code. 


FAB CFABSV_LNM MODE) = 
(IF .IACSGC_IMAGCTX CIMAGCTX$V_PRIVI 
THEN PSLSC_EXEC 
ELSE PSLS$C_USER); 


' Load NAM block with descriptor for resultant (or merely expanded) name 
: string. (If a known file gatcy is found, then RMS does not return an 
! resultant string but merely the expanded string.) 
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P SNAM_INIT 
P TNAM = NAME_BLOCK 
P RSS = NAMSC~MAXRSS, 
940 P RSA = .NAME~STRING.” 
941 P1168 ESS = NAMSC~MAXRSS 
34¢ P ESA = .NAME-BLOCK CNAMSL_RSA), 
94 P 1170 NOP = <NOCORCEAL> 
944 1 ); 
945 ; 
34 ; STATUS = SOPEN (FAB = FAB); 


. | 
SYSSIMGACT SYSIMGACT = Image Activator System Service 18-5¢ -1984 02:39: AX-11 Bliss-32 V4.0-74 Page 24 SYS! 
y022001 INGSOPEN IMAGE : Open Next Image File 1 =300n 138i 96:72:38 SYS.SRC SYETAGALT 93205 . 3} v04: 
: 948 1323 '!'! THE FOLLOWING HACK ALLOWS INFORMATION IN THE FAB TO BE PASSED goer 27; 
; 8¢8 1178 tid BACK TO THE CALLER IN THE EVENT THAT THE ACTIVATION FAILS teett : 1; 
; 38 117 if .own_storage Cbuffer_address] nequ 0 iii 31; 
. = § 117 then itt 21, 
3; » 1180 4 begin itt 21, 
; 954 1181 4 tit $3 
; 955 11 é 4 bind iii : 1 
3 328 1 ? ? bufhdr = .own_storage Cbuffer_address] : vector (3,long); Ht : \; 
: 958 1185 4 if probew (Zref(0), %ref(4), bufhdr £22) iti ie 
; 959 11 $ 4 then tit 3 1, 
; 960 1187 4 bufhdr (2) = fab; iit 33, 
; 961 11 4 iit ee i 
: 96 1189 end; vidi 3 1 
; 9% 1190 | lie riiti 31 
: He) 113) '!! THIS IS THE END OF THE ERROR REPORTING HACK geeres ; 1, 
: 308 1138 IF NOT .STATUS THEN RETURN .STATUS; ! 77? WHAT ELSE ??? : 1; 
; 968 1195 2 ELSE i 
Be 2B ee 4 
: 971 1198 ! This is the code path that is used to open image files before the file ; 1; 
3 af 1 ! system and RMS exist. : 1; 
: 97% 1201 LOCAL re} 
: 975 1 O¢ RTVRBUF VECTOR (512, BYTE}. ! Retrieval pointer buffer 3 1; 
; 976 120 IXFHDR VECTOR (512, BYTE], ! Index file header buffer 3 1; 
: 977 1204 FILHDR VECTOR (512, BYTE], ! File header buffer 3 1; 
; 978 1205 STATBLK VECTOR (2), ' Statistics block 3 1; 
: 979 1206 RTVRLEN ' Returned length of retrieval buffer ; 1; 
; 980 1207 BUF _DESC : VECTOR (C2) ! Retrieval pointer buffer descriptor 3 1; 
3 os) } oe INITIAL (512, RTVRBUF); : Vi 
: 988 1210 LOCAL 33 
> 984 1211 ARG_LIST : VECTOR GH 3 1; 
: oH : \§ INITIAL (2, 0, BUF_DESC); : 1 
; 389 1214 STATUS = FILSOPENF ILE ( 7% 
; 988 1215 FAB CFABSL_STVJ, ! Store channel here 71, 
; 989 1 16 »NAME_DESC, ' Address of name descriptor 21, 
: 990 121 IXFHOR, ! Address of index file header buffer 21, 
; 991 1 18 FILHDR, ' Address of file header buffer 3 1, 
3 O36 121 STATBLK, ' Address of statistics array .y 
; 99 1220 RTVRLEN ' Returned buffer size 3 Y. 
3 994 1221 BUF _DESC) ! Retrieval buffer descriptor 3 1 
; 995 1 : IF NOT [STATUS : 1 
: 208 : ? THEN RETURN .STATUS; ! Exit if error detected : ‘ 
: 998 1225 IF .RTVRLEN GTR .BUF_DESC (0) ! If the mapping pointers can't fit on 3 1 
3 4: : $ THEN RETURN SS$_BADIAGHDR; ! a single page, then return an error : y 
; 1901 1 3 IF .RTVRLEN EQL 0 ! If the file is empty, > W 
3 1036 1 THEN RETURN SS DIMGHDR ' then return an error 3 1 
3 I : ? ELSE BUF_DESC (OJ = .RTVRLEN; ! Otherwise, use correct buffer size : y 
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vou O0t MeSOPEN IMAGE : Open Next Image File 12286871382 96:72:88 Eoys.SRe SYSINGACT 03243 ’ (5) Vv04- 
5 ARG_LIST C1] = .CHAN; ' Store channel number in argument List 
06 bp STATUS = SCMKRNL ' Allocate and initialize a window 
P OUTIN = INIT_WINDOW, ! control block in kernel mode 
4 ARGLST = ARG_CIST); 

IF NOT .STAT 
THEN RETURN .STATUS; ! Exit if error detected 
! The image file name string passed as input will be stored internally and 
! passed back to the caller if so requested. The entire file specification 
! (and not merely the file name portion) will also be stored in the ICB. 


NAME BLOCK CNAMSB_RSL] = .NAME_DESC CDSC$W_LENGTH); 
CHSMOVE ( 


«NAME _BLOCK CNAMS$B_RSLJ ! Store the input file specification 
.NAME-DESC CDSCSA_POINTER), i “in the name string buffer 
“NAME ~ STRING) ; 


Rather than storing the name in the ICB, this code segment will merely 

set up the NAM block fields so that the code below that loads the jnage 
name into the ICB will work correctly. Note that ICBSS_IMAGE_NAME includes 
one byte of count and four bytes of _00n suffix. These must Be subtracted 
! before the minimization takes place. 


NAME _BLOCK CNAMSB_NAME] = MINU ( ! Only use the beginning of the string 
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“NAME _DESC COSCS$W_LENGTHI, ! if the input_file specification is 
ICB$S_IMAGE_NAME = (1+44)); ! longer than 39 characters 

8 NAME_BLOCR CNAMSL_NAME) = .NAME_STRING; 
83 END; 
O38 6 ICB CICBSW_CHAN) = .CHAN; ' Store channel number in ICB 
036 6 1CB CICBSLKFE) = .FAB CFABSL_CTX); i Pick up address of KFE 
038 6 ! If ICB does not yet contain an image name, load the name contained in the 
039 6 i NAM block. The name stored in the ICB will be the filename portion of the 
040 6 ! full file spec, the same name that the Linker uses when constructing the 
bes ! names of global ISDs. 
00 ; IF .ICB_NAME (0) EQL 0 
044 7 THEN 
045 7 BEGIN 
nee 7 I1CB_NAME (0) = .NAME_BLOCK CNAMS$B_NAME]; 
04 7 CHSMOVE ( 
B68 7 - 1CB_NAME £0). 

9 7 »NAME_BLOCK CNAMSL_NAME), 
050 7 ICB_NAME (1)); 
Ba) g D; 
638 8 ! If activating an inope across the network or from magtape, the file is 
054 1 ! not mapped. Rather, the address space is created and the contents of the 
Be? ; ! image file are read directly into the newly created pages. 
§39 IF (.DEV_CHAR CDEV$V_NET) OR 
058 5 (.DEV_CHAR COEV$9_SQD] AND (.FAB CFABSW_BLS) EQL 512))) 

59 THEN ICB CICB$V_LOAD_TMAGE) = TRUE; 

1 8 IF .1CB CICBSL_KFE) EQL 0 


n“ 


JAGACT = Image Activator Syston service 18-$ep-1984 96:32:38 te 


SYSSIMGACT SY -11 Bliss-32 V4.0-74 
vous00t IMGSOPEN_IMAGE = Open Next Image File - § SREISTSIMGALT 63245 
; 106 1 THEN 

. $¢ 1 8 BEGIN 

3 \ ¢ : $3 IF (.1ACSGL_IMAGCTX CIMAGCTX$V_PRIV]) THEN RETURN SS$_PRIVINSTALL 

[4 129 ELSE 

; 1987 ! 3e BEGIN 

: 4 : 38 ! Make sure that the count byte immediately precedes the name string 

: 190) 4 : 28 SASSUME ((SBYTEOFFSET (KFESB_FILNAMLEN) ) 

: 1098 1 89 (SBYTEOFFSET (KFEST_FILNAM) = 1)); 

; 1598 i 3 BIND 

: 1076 1 8g KFE_NAME = KFE CKFEST_FILNAM] = 1 : VECTOR C,BYTE), ! Include count byte 
3; 1077 1304 CTX-= .1CB CICBSL_CONTEXTI : SBBLOCK 

3 1978 : Be GSD_NAME = CTX CCTX_T_GSD_NAME] : VECTOR ( .eyYTe): 

: 1080 1309 ! Several bits of housekeeping are in order if this was a successful 

3 on 1308 ! $OPEN of a known file. 

: 1088 1310 IF .KFE CKFESV_PROCPRIV] AND .OWN STORAGE CMAIN_PROGRAM] 

: Ise ! 1 THEN IACSGC_IMAGCTX CIMAGCTXS$S0_PRIV] = TRUE; 

: 1086 1318 ! Images installed with the /ACCOUNT qualifier can cause image accounting 
3: 1087 1314 !' records to be written each time pe 4 are run as main programs. The 

; 1088 1312 ! ACCOUNT flag is ignored for shareable images and images that are merged 
3 1388 1316 ! into an existing image's address space. 

: 1091 1318 ; IF .KFE CKFESV_ACCOUNT] AND .OWN STORAGE CMAIN_PROGRAM] 

$ 44 ! 1 THEN OWN_STORAGE CIMAGE_ACCOONT) = TRUE; 

: 1094 1354 ' RMS returned an expanded erring. We will store the size of the image 

3; 1095 1356 ! file in the RSL field in the NAM block. We will also strip off the 

3 1096 132 ! trailing semicolon (or dot) that would inhibit further known file 

3; 1097 13Se ! lookups if the file name returned by the image activator were to be 

; 1338 13 5 ! passed back into the image activator at a later time. 

: 1100 1337 IF .NAME_BLOCK CNAMSB_VER) EQL 1 

3 119) 13 4 THEN NAME_BLOCK CNAMSB_RSL) = .NAME_BLOCK CNAM$B_ESLJ - 1; 

: 1108 1386 IF .KFE CKFESV_SHARED) 

: 1108 i 33 4 THEN GIN 

; 1106 1 4 4 CHSMOVE ( 

3: 110 1334 4 (.KFE CKFESB_FILNAMLEN) + 1), 

3; 1108 1335 4 KFE_NAME 8 

> 1109 1 6 4 GSD"NAME (035; 

ieee yen 

; 1118 1339 4 CHSPTR (UPLIT (*_000')) 

> 111 1340 4 GSD NAME C.KFE CRFESB_FILNAMLEN] + 1)); 

2 11146 1341 4 I1CB CICBSV_SHAREABLE] = TRUE; 

3 111? ' 4g END; 

: Ni? ' rf '!! SOME MORE KFE FLAGS SHOULD BE COPIED INTO THE ICB 
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SYSSIMGACT SYSIMGACT = Image Activator System Service 1b-5¢ -1984 02:39: AX-11 Bliss-32 V4.0-74 Page 30 
voeeo0s INIT_WINDOW = ater ace Rout ihe to FILSINIWCB 1 730071382 96:72:38 SYS.SRC SYSIMGACT B3003 ’ (6) 
; 1 8 ! : ! XSBTTL "INIT WINDOW = Interface Routine to FILSINIWCB' ; 
3 i } 8 ! ROUTINE INIT_WINDOW (CHANNEL, BUFFER_DESC) : SYS_CMKRNL = : 
3 33 § 1358 1 !¢ : 
3 1} ? ! 2 : Functional Description: . 
; 1135 1361 1! This routine acts as a jacket to the routine called FILSINIWCB, which : 
3; 1136 1 6 1! allocates a window control block in the absence of a complete file : 
3 1137 13635 1! system. ‘ 
; 1138 1364 1! : 
3 1139 1365 1 ! Calling Sequence: : 
; 1140 1366 1! : 
> 1141 1367 1! SCMKRNL CINIT_WINDOW, ARGUMENT_LIST) ; 
: 308 1368 1! : 
3 114 1 8? 1 ! Formal Parameters: ; 
3 11446 1370 1! . 
3 1142 134 : CHANNEL = Address of channel on which image file is opened ‘ 
3 1147 1 ig 1! BUFFER_DESC = Address of descriptor of retrieval pointer buffer : 
3; 1148 1374 1 !- : 
3: 1149 1375 (1 ; 
3; 1150 1376 § BEGIN : 
3 1151 1377 ; 
; 1123§ 1378 EXTERNAL REGISTER ! We enter this procedure with the PCB ; 
3; 115 1379 PCB = 4 : REF S$BBLOCK; ! address contained in R4 : 
3 1154 1380 ‘ 
3 1155 1381 BIND ‘ 
1; 1156 1386 J1B = .PCB CPCB$L_JIB] : $BBLOCK : 
‘3 1157 138 BUF _DSC = .BUFFER_DESC : VECTOR (21; : 
3; 1158 1388 . 
3 1159 1385 LOCAL ; 
: 1160 1386 STATUS, ‘ 
: 1161 1387 CCB : REF $BBLOCK, ‘ 
; 1166 1388 WCB; ‘ 
: 116 1389 ‘ 
> 1164 1390 STATUS = IOCSVERIFYCHAN (.CHANNEL; CCB); : 
> 1165 1391 2 IF NOT STATUS THEN RETURN STATUS; ; 
: 1166 1 3 STATUS = FILSINIWCB (.BUF DSC (OJ, .BUF_DSC C1), .CCB CCCBSL_UCBI]; WCB); 3 
> 1167 139 IF NOT .STATUS THEN RETURN .STATUS; : 
: 1168 1394 CCB CCCBSL_WIND) = .WCB; ; 
> 1169 1399 CCB CCCB$B-AMOD) = PSLSC USER 1; : 
: 1170 1396 JIB CJIBSWIFILCNT] = .JIB J1B$W_FILCNTI “1; : 
31171 1397 RETURN SS$_NORMAL : 
3 1496 1398 : 
: 117 1399 END; ° 
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AZSBTTL 'IMGSGET_HEADER = Get Parameters from Image Header' 
GLOBAL ROUTINE IMGSGET_HEADER (ICB_ADDRESS) = 


14 
Functional Description: 


i This routine is a jacket routine that handler two kinds of image header. 

} If an image was installed header resident, then there is no need to decode 
: the header or verify its contents. Other peges must have their headers 

} read into memory before the decode and verification can occur. 

| Calling Sequence: 

i IMGSGET_HEADER (1CB_ADDRESS) 
| Formal Parameter: 

i 

i 

ie 


ICB_LADDRESS = Address of image control block that describes the image 
that is currently being activated. 


BEGIN 
BIND 
ICB_ADR = .1CB_ADDRESS : $SBBLOCK, 
F = [ICBTADR CICBSL_KFE) : $BBLOCK, 
IHD_CTX = .ICBIADR CICBSL-CONTEXT] : $BBLOCK: 
LOCAL 
STATUS; 


IF 
BEGIN 
IF KFE EQL 0 
THEN TRUE 
ELSE NOT .KFE CKFESV_HDRRES) 


IF NOT .STATUS THEN RETURN .STATUS; 

' images that contain an alias of either IHD$C_RSX or IHD$C_BPA are not 
! native images produced by the Linker and, as a result, do not require 
! a check against the system version field. 


IF 
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R = Get Parameters from Image Head 1 
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mage Activator System Service 16-Sep-1984 9632338 AX-11 8 


-Sep-1984 
La JNO CTR CCTX_W_ALIAS] NEQ IHDSC_RSX) 
(.1HD_CTX CCTX_WLALIAS] NEQ IHD$C_BPA) 


(.THD_CTX CCTX_W_ALIAS) NEQ IHDSC_ALIAS) 


SYS.SRC 


BEGIN 

BIND 
IHD = .IHD_CTX cerxt IHDBUF J : SBBLOCK 
MINORID_DIGIT = LHD THOSW MINORID3 : VECTOR fe BYTE], 
IHA = THD + .JHD CIHD$W_ACTIVOFF] : VECTOR (5); 

! MINORID_DIGIT £0) maps the tens digit. 

! MINORID_DIGIT C1J maps the units digit. 

LITERAL 
MINOR_ID_TENS = IHD$K_MINORID AND &X'FF', 
MINOR_ID_ONES = IHDSK_MINORID * <8; 

The major ID in the image header must be identically equal to 


the constant IHDSK_MAJORID. The minor ID in the image header 
must be LEQU the constant IHDSK_MINORID. Both IDs are stored 
as ASCII strings. 


IF (.1HD CIHDSW_MAJORID] NEQU IHDSK_MAJORID) 
THEN RETURN SS$_BADIMGHDR; 


( 
agers Pets? CO] GTRU MINOR_ID_TENS) 


{-MINORID_DIGIT CO2 EQLU MINOR, 1D_TENS) 
(,MINORID_DIGIT C1] GTRU MINOR_ID_ONES) 


) 
THEN RETURN SS$_BADIMGHDR; 


! Check match control data for shareable images that are being 
! activated because of global ISD references. 


If; 1CB_ADR CICBSB_ACT CODE] EQLU 1CBSK_GLOBAL_IMAGE_SECTION 


BEGIN 
STATUS = CHECK_MATCH_CONTROL (ICB_ADR, IHD); 
if wt STATUS THEN RETURN .STATUS; 


! We must record whether we are activating @ shareable image with an 


! initialization section. 


IF .IHD CIMD$V_INISHR) 
THEN 
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age Activator System Service 1b-3e 1984 02:39: AX-11 Bliss-3 
: Get Parameters from Image Head 1 730071382 ? 32:88 oYS.SRCISYSIA 


JACSELIAAGCTR CIMAGCTXS$V_INITIALIZE] = TRUE; 


2 
G 


! If the image was Linked against a SYS.STB for other than the current 
! system, then CMEXEC and CAKRNL privilege will be removed. 


IF_ (.IHD CIHDSL_SYSVER] NEQU 0) 
THEN 


BEGIN 
eras CICBSV_SYS_ STB) _= TRUE; 


(. THD THDSL_SYSVER] NEQU SYSSK_VERSION) 
inen OWN STORAGE CREMOVE_PRIVILEGE] = TRUE; 
END; 
END 
! Header is already resident 
BEGIN 
BIND 
IHD = .KFE CKFESL_IMGHDR) : SBBLOCK, 
KFRH = IHD = KFRHSR_LENGTH : SBBLOCK 
IHA = IHD + .IJHD CIMDSW_ACTIVOFF] : VECTOR (5); 
ICB_ADR CICB$V_RES_HEADER] = TRUE; ! Indicate that header is already in memory 
ICB_ADR CICBSL_IHD] = IHD; ! Remember the address of the resident IHD 
IHD_CTX CCTX_L_IHDBUF) = Q; ! Clear this so it won't get used by something else later 
IHD_CTX CCTX_W_ISD_ OFFSET) = .IHD CIHD$W_SIZEJ; 
IHD_CTX CCTX_W GENERATION) = .KFRH CKFRHSB_HDRVER]; 
IHD_CTX CCTX_WLALIAS)] = .KFRH CKFRHSW_ALIAS); 
ae CICBSB_ACT_CODE] EQLU ICBSK_GLOBAL_IMAGE_SECTION 
B 


EGIN 
STATUS = CHECK_MATCH CONTROL (ICB_ADR, IHD); 
c NOT .STATUS THEN RETURN .STATUS; 


! We must record whether we are activating a shareable image with an 
! initialization section. 


IF .IHD CIHD$V_INISHRI 
THEN 

BEGIN 
1CB_ADR 1CBSL INITIALIZE] = .IHA (4); 
ICBCADR CICBSVIINITIALIZE] = TRUE; 


! If the image was Linked ogo tnst a SYS.STB for other than the current 
! system, then CMEXEC and CAKRNL privilege will be removed. 


IF_ (. IHD CIHDSL_SYSVER] NEQU 0) 
THEN 


IN 

1CB_ADR CICBSV_SYS_STB)_= TRUE; 

IF “(IHD FFADSL YSVER) NEQU SYS$K_VERS 
= 


R 
IH ON) 
EN OWN_STORAGE CREMOVE PRIVILEGE E; 


l 
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ACT. 


SYSSIMGACT FISineact = Image Activator System Service 
1 IMGSGET_HEADER = Get Parameters from Image Head 1 
! q END; 
157 STATUS = SS$_NORMAL; 
157 ND; 
: RETURN .STATUS; 
157 END; 
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ZSBTTL "CHECK MATCH CONTROL = Check Match Control Identification’ 
ROUTINE CHECK_MATCH_CONTROL (ICB, IHD ) = 
14 
! Functional Description: 

This Foyt ine checks that the match control information in the image header 


is consistent with the match gontros information that is actuaily being 
requested. The check is made in three steps. 


1. The meted control weg that is being requested must be at least as 
restrictive as the match control flag in the image header. 


2. If the resultant match control is MATCH ALWAYS, no further checks are 
made. If the resultant check is MATCH NEVER, 22272. 


3. If the match control is either MATCH EQUAL or MATCH LEQUAL, two 
further checks are made. 


a. The two major IDs (one in ICB and one in IHD) must be equal. 

b. The two minor IDs must be related according to the match control. 
In the case of MATCH EQUAL, they must be equal. In the case o 
MATCH LEQUAL, the requested minor ID (located in the ICB) must be 
LEQU the minor ID in the image header of the image being 
activated. 

Calling Sequence: 

CHECK_MATCH_CONTROL (ICS, IHD ) 

Formal Parameter: 


ICB - Address of image control block that describes the image 
that is currently being activated. 


IHD - Address of image header of image being activated. 


ICB : REF SBBLOCK, 
IHD : REF S$BBLOCK; 


D CIHDSV_MATCHCTLJ 

$K_MATALC TO ISDSK_MATNEV OF 

CISDS$K_MATALL): 

SS$_NORMAL ; ! Do nothing 
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re 
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=f 
CH_C 


oz 


4) 

: CISDSK_MATEQU): 

4 

‘ (.1C8 CICBSV_MATCH_ CONTROL] EQLU ISD$K_MATALL) 
4 (.1CB CICBSV_MATCH CONTROL] EQLU ISD$K_MATLEQ) 
é THEN RETURN SS$_SHRIDMISMAT; 

é CISDSK_MATLEQ): 

4 IF_.ICB_ CICBSV_MATCH CONTROL] EQLU ISDSK_MATALL 

: THEN RETURN SSS_SHRIDMISMAT; 


CISDSK_MATNEV): 

RETURN SS$_SHRIDMISMAT; 
TES; 
CASE .1CB CICBS$V_MATCH CONTROL] 
— ISDSK_MATALC TO ISDSK_MATNEV OF 
CISDSK_MATALL): 

RETURN SS$_NORMAL; 
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IF .1CB CICBSV_MAJOR ID] NEQU .IHD CIHD_V_MAJOR_ID] 
THEN RETURN SS$_SHRIDMISMAT; 


? CISDSK_MATEQU, ISDSK_MATNEV]: 

. BEGIN 

4 IF .1¢B_CICBSV_MAJOR_ID] NEQU .IHD CIHD_V_MAJOR_ID] 
. THEN RETURN SS$_SHRIDMISMAT; 

4 IF .I1CB CICBSV_MINOR_ID] EQLU .IHD CIHD_V_MINOR_ID] 
4 THEN RETURN SS$_NORMAL 

r ELSE RETURN SS$_SHRIDMISMAT; 

2 END; 

2 CISD$K_MATLEQ): 

H BEGIN 
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5 IF .1CB CICBSV_MINOR_ID) LEQU .IHD CIHD_V_MINOR_ID) 
60 THEN RETURN SS$_NO 

$1 ELSE RETURN SS$_SHRIDMISMAT; 

$8 END; 

64 

65 TES; 
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END; 
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SYSI 
END_ 
>; 1469 1692 1 
H 129 1698 1 
: 14671 1694 1 ROUTINE END_PROCESSING (ICB_ADDRESS) = 
; Vole 1695 1 
; 147 1096 1 t+ 
> 1474 1697 1°! Functional Description: 
: 1475 1698 1! 
; 1476 199% 1 } This routine performs the steps involved in image activation after all 
; 1477 1700 1! of the ISDs have been processed. (Some of the details are actually 
3; 1478 1701 1! performed by the kernel mode routine SET_CONTROL_REGION.) The operations 
: nes 1706 ! that need to be completed include 
3 1481 A : } © mapping the image 1/0 segment 
; 1488 1288 } oO mapping the user stack and setting the initial value of USP 
: 1485 1708 1! © setting up the process privilege mask 
: 1486 1709 1! 
; Hi 14 17i9 ! © optionally setting up image accounting information 
3 It at : o bumping the use count in any KFEs referenced by this activation 
3 1491 1714 1! o bumping the reference count in any shared WCBs referenced by this 
: 1098 1715 1! activation 
3; 149 1716 1! 
> 1494 wir 63 Ee o returning image parameters to the caller 
3; 1495 1718 1! 
> 1496 1719 1°! Calling Sequence: 
3: 1497 1720 1! 
3; 1498 1721 1! END_PROCESSING (ICB_ADDRESS) 
3 1499 756 1 !- 
; 1500 1723 (1 
: 1501 ist BEGIN 
; 1306 1725 
; 150 1726 LOCAL 
3: 1504 1727 IMAGE_I0_PAGE_COUNT, 
; 1505 1728 STACK_BASE 
; 1506 1729 CRETVA_RANGE VECTOR (21, 
3; 1507 1730 : VECTOR (4) INITIAL (¢ 
: 1508 1731 ' Argument count 
; 1509 1738 CRETVA_RANGE, i 
: 1510 17 P ' Null retadr 
3; 1511 1734 EXEC_PROT), ' Access mode and protection 
3 131g 1735 IMGIO_SEG_DESC : VECTOR C2] INITIAL (0,0), 
3 13! 17 $ STATUS; 
3 1514 17 
3 1315 1738 BIND 
; 1516 1739 ICB = .ICB_ADDRESS : SBBLOCK, 
: 1517 1740 KFE = .ICB CICBSL_KFEJ : SBBLOCK, 
3; 1518 1741 PHD = .CTLSGL_PHD : SBBLOCK, 
: 34 1g STACK_ARRAY = CRETVA_RANGE : VECTOR; 
: 185) 1744 ! The location of the image header depends on whether the image was installed 
s 33 § 1745 ! with its header resident. 
3 1 1oe8 
3: 1526 174 BIND 
3; 1525 1748 IHD = 
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(IF .ICB CICBSL_IHD] EQL 0 
THEN 
BEGIN 
BIND 
CTX = .I1CB CICBSL_CONTEXT) : SBBLOCK; 
~CTX CCTX_L_IHDBUF J 
END 
ELSE 
-1CB CICBSL_IHMDJ) : SBBLOCK; 


! If this is the activation of a main program, then the image 1/0 segment and 
! user stack must be mapped. 


IF_.OWN_STORAGE CMAIN_PROGRAM) 
THEN 
BEGIN 
IMAGE p10 PAGE COUNT, = ¢ 
IF .THD CIHDS$W_IMGIOCNT] NEQ 0 
IHD CIHD$W_IMGIOCNT) 
. SGNSGW_IMGIOCNT); 
IF IMAGE _10_PAGE_COUNT GTR .SGNSGW,IMGIOCNT 


THE 
BEGIN 
IF .IHD CIHDSV_POIMAGE) 
THEN 
BEGIN 
CRETVA_RANGE £93 = .PHD CPHDSL_FREPOVA); 
CRETVA_RANGE [1] = 


.CRETVA_RANGE [OJ 
+ (. IMAGE_10_PAGE COUNT * BYTES_PER_PAGE) 


END 


BEGIN 
CRETVA_RANGE fia = .CTLS$GL_CTLBASVA - 1; 
CRETVA~ RANGE = 

.CRETVA_RANGE (1) 
. - (,IMAGE_IO_PAGE_COUNT * BYTES_PER_PAGE) + 1; 


! Create the image 1/0 segment using the internal routine that allows 
! a mixed-mode protection mask to be specified. 


STATUS = SCMKRNL_ ( 
ROUTIN = MMGSCRETVA, 
arent = ARG_LIST); 


Est £0} : ime 10_ PAGE 


SOUNT * BYTES_PER_PAGE; 
RETVA_RANGE £63: nite. 
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IF .IHD CIHDSV_POIMAGE) 
THEN 


BEGIN 
STATUS = SEXPREG ( 
PAGCNT 


OWN STORAGE CUSER_STACK_SIZE], 
STACR_ARRAY, 


| 
| 
\ 
\ 
( 
\ 
\ 
\ 
| 
| 
| 
| 
| 


= PSLSC"USER, 
REGION = 0); 
SE = .STACK_ARRAY [1] + 1; 


Y 
END_ 

1 4 $ 
1809 : 
1808 F 
1809 $ 
1810 $ 
! 1 : 
1 : 4 3 
1814 4 $ 
\8 5 4 $ 
1816 4 3 
\3 7 4 $ 
1818 4 3 
1819 4 3 $| 
1820 4 ; el 
1821 3 3 $| 
18 ; 4 N : el 
13s 4 US = SEXPREG ( 3 $| 
1824 4 PAGCNT = .OWN STORAGE CUSER_STACK_SIZE]), 4 
1825 4 RETADR = STACR_ARRAY, $24 
1826 4 ACMODE = PSLSC_USER, 3 el 
13 7 4 REGION = 1); 3 2 
1828 4 STACK_BASE = .STACK_ARRAY [0] + 1; 3 2l 
1829 END; 3 ¢ 
1830 3 2 
1831 IF NOT .STATUS : el 
1336 THEN RETURN .STATUS; i el 
133 2 END; ! End of test for main program : § 
1835 ! If the caller so requested, information about the image just activated is $ $| 
1338 } returned in a 512-byte buffer whose address was passed as an input parameter. : 5 
1338 The two main pieces of information are : $| 
wy § the image header except for all of the ISDs : $ 
1366 : an image file descriptor whose primary piece is a string and descriptor 3 2 
137 for the image file just activated : $ 
1845 ! Note that the buffer must be probed again because one of the mapping requests : 3 
108 ! issued by the image activator may have changed its protection. : 
1848 IF .OWN_STORAGE CBUFFER_ADDRESS] NEQA 0 3 5 
1849 THE i 2l 
: 9 BEGIN 
1326 ! Because this buffer contains a variety of information, we need to look 

: 37 ! at it in several different ways. 

1855 BIND 

1 2$ BUFFER = .OWN_STORAGE Boe PER ADORE SS] : VECTOR CRETURN_BUFFER_SIZE,BYTE), 4 

185 BUFHDR = .OWN STORAGE CBUFFER_ADDRESS) : VECTOR C3,LONGJ, 

38 NAM = =_- PRIMARY_NAM : SBBLOCK; 

1860 LOCAL 

1861 F : REF SBBLOCK 

1862 FILE_NAME : REF VECTOR C,BYTE); 


END; 
RMSSET (.1HD CIHDSL_LNKFLAGS], IMGIO_SEG_DESC); 
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! Insure that buffer is still writable by caller 


IF NOT PROBEW (XREF(O), XREF(RETURN_BUFFER_SIZE), .OWN_STORA FFER_ADDRESS]) 
THEN RETURN SS$_ACCVIO: ’ - STORAGE CBUFFER_ADDRESSJ 


! Insure that image header information will fit into a single page 
IF ¢ i 


12 + ! Three longword header 
-IHD CIHD$W_SIZEJ ! Image header less ISDs 
LEQU RETURN_BUFFER_SIZE 
THEN 
BEGIN 
! Fill in the three pointers 
BUFHDR (CO) = BUFFER [12]; : jmage header starts right after three longword pointers 
BUFHDR [1] = Q; ' 0 until we see if IFD fits 
BUFHDR (2) = 0; ! Third longword is unused on success path 


! Copy the image header 
CHSMOVE (.IHD CIHD$W_SIZE], IHD, BUFFER (12)); 
! Any transfer address array elements that are not located in the 


: oa portion of P1 space or in system space must be relocated 
! Dy an amount equal to the base address of the image just mapped. 


Dwele eeu oe or oP aie e le e eee Po or oe? or or? a a? a? oP ot ot ot ot et et et et 1 


9 (.OWN_STORAGE CTRANSFER_ARRAY_BIAS] NEQ 0) 
(NOT .IHD CIHDSV_LNKNOTFRI) 
THEN 
BEGIN 
BIND 
IHA = .BUFHDR CO) + .IHD CIHDSW_ACTIVOFFJ : VECTOR (3); 
LOCAL | 
INCR I FROM 19 2 00 
ca -1] LSSU .CTLSGL_CTLBASVA 
IHA (.1] = .1HA C.1) + .OWN_STORAGE CTRANSFER_ARRAY_BIAS); 
319 END; 
ai§ ! See if we can also fit in the IFD 
914 IF ¢ 
915 12 + ' Three lonqword header 
218 IHD CIHD$W_SIZE]) + ! Image header less ISDs 
91 IFDSK_LENGTA + ' Fixed portion of IF 
318 NAM TNAM$B_RSL] + ' Length of image file name 
91 i) i Count byte in ASCIC string 
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Image Activator System Servic Sep-1984 02:39: AX-11 Bliss-32 V4.0-74 
NG = 7 Final Steps of Image Activatio 17-308 71384 96: 214; ‘38 SYS.SRCISYSIMGACT.B32; 
LEQU RETURN_BUFFER_SIZE 
MNREGIN 
IFD eure FER at + - IHD CIHD$W_SIZEI); ! IFD follows the image header 
BUFHDR 1] ! Store its address 


! Fill in the fixed portion of the IFD 

IFD C1 W_SIZE] = er atane NG a CNAM$B_RSLJ; 
IFD W_F ILNAMOF F J [EDs 

IFD We CHAN = V1CB 1cBSa- ENON: 

IFD 

IFD 


WLCMCHAN] = .OWN STORAGE COTHER CHANNEL); 
SLUCMKFIADR] = .OON_STORAGE COTHER_KFE ADDRESS); 


IFD CIFDSW_FLAGS] = .I1ACSGL_IMAGCTX; 
FILE_NAME = .IFD + IFDSK_LENGTH; 
BEGIN 


FDS 
FDS 
FDS 
FDS 
FD 


IND 
FILE_NAME_DESC = IFD CIFD$Q_CURPROG) : SBBLOCK; 


FILE_NAME_DESC CDSCSW_LENGTH] = .NAM CNAMSB RSL: 
FILE-NAME-DESC CDSCSA_POINTER] = .FILE_NAME + 


END; 
FILE_NAME CO] = .NAM CNAMSB_RSLI; 
CHSAOVE ( 
An NAM CNAMSB. RSLI, 
FILE NAME eta); 
END 
ELSE 
! FILL the IFD portion with zeros 
CHSFILL (0. RETURN BUFFER SIZE - 
R C12 + . THB CIHDSW_ "o17e3 
END 
ELSE 


'!! FOR LACK OF ANYTHING BETTER TO DO_IN THIS CASE, I WILL FILL 
'!! THE ENTIRE 512-BYTE BUFFER WITH ZEROS 


CHSFILL (0, RETURN_BUFFER_SIZE, .OWN_STORAGE CBUFFER_ADDRESSJ); 


i". CIHD$W_SIZE), 


he caller so requested, fhe address range into which the image and all 
ts associated shareable images were nagees is returned. Like the previous 
uffer, this address range must be probed in case the protection ont 
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pages changed since the argument was first validated. 
Oe einai CRETURN_ARRAY_ADDRESS] NEQA 0 
BEGIN 


BIND 
RETADR = .OWN_STORAGE CRETURN_ARRAY_ADDRESS] : VECTOR; 


! Insure that two longwords are still writable 


IF NOT PROBEW (ZREF (0), ZREF (8), .OWN STORAGE CRETURN_ARRAY_ADDRESS)) 
THEN RETURN SS$_ACCVIO; 


! Return the start and end addresses 


RETADR £9) = .OWN_STORAGE CRETURN_START_ ADDRESS); 
RETADR (1) = .OWN STORAGE CRETURN_END_ADDRESSJ; 


! The petjevies kernel mode routine executes unconditionally to perform those 
: ryan te chores that must be executed in kernel mode. 
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7 001 2 ARG LIS! a s STACK _BASE; 
7 00 ARG_LIST ; = [HD 
78 00 ARG_LIST = KFE: 
78 004 
78 P 2005 2 STATUS = SCMKRNL 
78 P 2006 ROU UTIN = SET _CONTROL _REGION, 
784 007 ARGLST = ARG-LIST); 
785 2008 2 IF NOT .STATU 
786 909 THEN’ RETURN STATUS; 
787 01 
788 011 2 RETURN SS$_NORMAL 
789 1g 
790 201 END; 
00000003 006A8 P.AAC: .LONG 3 : 
00000001 00000000 00000000 006aCc “LONG 0, 0, 3329 : 
.EXTRN SYSSEXPREG 
OFFC 00000 END_PROCESSING: 
SWORD Save R2,R3,R4,R5,R6,R7,R8.R9,R10,R11 > 1694 
SE 4 2 00 SUBL2 #36, SP ; 
OC AE E7 AF 0 00 MOVC3 #16. P.AAC, ARG_LIST : 17 
10 AE 1c AE SE MOVAB CRETVA_RANGE, ARG_LIST+4 > 1724 
4 AE 7C 0001 CLRQ  IMGIO SEG DESC : 17 
59 4 Ac D 1 MOVL ICB_ADDRESS, R9 : 1739 
1 000000 06 00 »D 1 MOVL TLSGL PHD, R1 : 1741 
A p 1 TSTL (R9) : 1749 
by ¢ D ; SOL 88(R9), RO : 1754 
38 04 Aad D MOVL  4(RO), RB ; 1386 
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AX=11 BL iss=32 V4 0-743 
SYS.SRCISYSIMGACT.B32; 
$ 
O(R9), R 
poten 5T} 
O(RB) 


30cne), IMAGE _I0_PAGE_COUNT 


SGNSGW_IMGIOCNT, IMAGE_10_PAGE_COUNT 
#0, #18, SGNS$GW. IMGIOCRT, ~- 
MAGE_16_PAGE_COUNT 


MAGE_I0_PAGE_COUNT, R 
PORE Ogg AGE COUNT. Re 


), CRETVA_RANG 
A_RANGE, R2, R 
)> CRETVA_RANGE+4 


, CTLSGL_CTLBASVA, CRETVA_RANGE+4 
RETVA-RANGE+4, RO 
RO), CRETVA_RANGE 


R1 
V 
0 
C 
C 


EG_DESC 
TVA_RANGE 4 | heated 


esc 
RMSSE 
OWN. STORAGE +28, RO 
#4,732(RB), 9$ 

* =(SP 
STACK_ARRAY 
#4, SYSSEXPREG 
“ STACK_ARRAY+4, STACK_BASE 
" 
# 
STACK_ARRAY 
#4, SYSSEXPREG 
#1, STACK_ARRAY, STACK_BASE 

us, 1T$ 


OWN. STORAGE+64, R6 


W512, (R6) 
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04 9 RET 
50 01 00 B 25$: MOVL #1, RO ; soi 
04 OE RET : 2013 


; Routine Size: 527 bytes, Routine Base: YFSS$SYSIMGACT + 0688 
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SYSIMGACT = Image Activator System Service 16-Sep-1984 02:39: AX-11 Bliss-32 V4.0-74 SYS 
SET_CONTROL_REGION = Kernel Mode Completion Rou 137388-1 382 96:72:08 SYS. SRCISYSINGACT 03243 Page 46) v04 
oie } ZSBTTL ‘SET_CONTROL_REGION = Kernel Mode Completion Routine’ : 
O18 1 ROUTINE SET_CONTROL_REGION ( : 

17 «1 USER_STACK_ADDRESS, 3 
818 1 IHD_POINTE 3 
19 KFE“POINTERS : SYS_CMKRNL = ; 
021 1 !4 : 

8 ¢ : Functional Description: : 
024 1 This routine performs the end processing that must be done in kernel ; 
025 1! mode. This Inc Ludes loading the user stack petater processor register, ; 
0 $ 1! and setting up the process privilege mask. Note that these steps are ; 
8 5 : only taken during the activation of a main program. : 
3 , : Calling Sequence: ; ; 
1 ! ; SCMKRNL (SET_CONTROL_REGION, ARGUMENT_LIST) : ; 
$035 1 | Formal Parameters: : 
2034 1! : 2 
$03? ! USER_STACK_ADDRESS = Address of base (high address end) of user stack : § 
Soke ! IHD_POINTER = Pointer to image header for this image : § 
soi : KFE_POINTER = Pointer to known file entry for this image, if one exists 3 § 
041 1— : 2 
B28 BEGIN PY 
04 : 
044 MACRO : 
045 3 
046 MOVE_PRIV_MASK (SRC, DST) = 4 
047 3 § 
048 BEGIN 3 
049 VECTOR DST .04 = .VECTOR CSRC,0); 3 § 
050 VECTOR COST,1) = .VECTOR CSRC,1); $ 
031 ENDS , : § 
088 CLEAR_PRIV_MASK (DST) = ; : 
054 3 
055 GIN 3 
B26 VECTOR pst 03 = 0 : 
be VECTOR CDST,1) = 0 3 
039 A 
060 EXCLUDE_PRIV_MASK (MASK, DST) = 3 
Ose BEGIN : 
84 VECTOR FpsT 9 = .VECTOR CMASK,0) AND .VECTOR post .03: : 
VECTOR CDST,1) = .VECTOR CMASK,1] AND .VECTOR (CDST,1); : 
065 ENDZ , : 
Oey INCLUDE _PRIV_MASK (MASK, DST) = 3 
O68 BEGIN : 
0 VECTOR CDST,O) = .VECTOR CMASK,0) OR .VECTOR CDST,0); 3 


Vb 


SYSSIMGACT SYSIMGACT = Image Activator System Service 1b-Se -1984 02:39: AX-11 Bliss-32 V4.0-74 
vous00t SET CONTROL REGION - Kernel Mode Completion Rou 12-80-1382 9 32:38 SYS SREISTSIMGALT 03243 
> 1849 “ 7 VECTOR COST,1] = .VECTOR CMASK,1] OR .VECTOR CDST,1); 

: 1831 f ENDZ ; 

: 1 ¢ Or EXTERNAL REGISTER ' We enter this procedure with the PCB 
: 182? Bf? PCB = 4 : REF S$BBLOCK; ! address contained in R4 

: 1855 077 5 BIND 

>; 1856 4 IHD = .IHD_POINTER : $BBLOCK, 

; 1857 07 KFE = .KFE POINTER : $BBLOCK, 

3 1338 $80 PHD = .CTLSGL_PHD =: S$BBLOCK; 

: 1860 OB¢ ¢ LITERAL 

3 139) Osz CMKRNL_OR_CMEXEC = (1 * SBITPOSITION (PRVSV_CMKRNL) ) 

: 1868 085 (1 * $BITPOSITION (PRVSV_CMEXEC)); 

> 1864 ogo 

; 1865 087 LOCAL 

>; 1866 088 PRIVILEGES : VECTOR (2), 

; Het 858 IcB : REF $BBLOCK; 

> 1869 3091 ! Most of the operations in this routine are ont performed when activating 

: 1870 O36 ! a main program. The only step that must be performed during a merged 

3 i ta 8§ ! activation is the USECNT adjustment for the KFEs. 

; 1878 095 2 IF .OWN_STORAGE CMAIN_PROGRAM] 

> 1874 096 THEN 

iby 098 tg: 

: 1877 099 ! The high address end of the user stack is loaded into the stack Limit 

; 1878 $100 ; ' array. The user stack pointer is initialized with a value that is smaller 
3; 1879 101 : than the input value by a value given by the EXTRA_USER_STACK compile 

; 1880 196 ; ! time constant. The size of the user stack is stored ina cell that will 

3; 1881 10 ! be used by the automatic stack expansion logic in EXCEPTION. Note that 

$ 1886 Is ! this number can never be smaller than 2. 

: 1884 106 CTLSAL_STACK CPSLSC_USER] = .USER_STACK_ADDRESS; 

> 1885 107 MTPR (ZREF (.USER_STACK_ADDRESS ~~ (EXTRA_USER_STACK*BYTES_PER_PAGE) ) 

3 1308 108 PR$_USP); 

: 1887 109 IACSGL_STACK_SIZE = .OWN_STORAGE CUSER_STACK_SIZE); 

: 1889 111 ! The privilege mask that will be used while this image is executing must 

; 130 136 ! be fabricated. 

: 1895 i} MOVE_PRIV_MASK (CTL$GQ_PROCPRIV, PRIVILEGES); ! Start with process privileges 
; 199 118 ! Eliminate those not present in the image header 

: 199 13 EXCLUDE_PRIV_MASK (IHD CIHDSQ_PRIVREQS), PRIVILEGES); 

5 1898 120 ! If the image was installed with privilege and we were called from other than 
: 13%) : 1 ! user mode, then add the privileges from the KFE 

: 1901 1 : IF .OWN_STORAGE CCALL_MODE] NEQ PSLSC_USER 

: 1306 124 AND 

: 190 125 4 BEGIN 

3; 1904 1 $ 4 IF .KFE_POINTER EQL 0 

3 1905 1 4 THEN FALSE 
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ELSE .KFE CKFESV_PROCPRIV] 
THEN 


EGIN 
INCLUDE _PRIV_MASK (KFE 
BOVE _PRIV_AASK (KFE (Kk 


KFESQ_PROCPRIV $) 
MAGPRIV]); 


C J, PRIVILE 
FESQ_PROCPRIV], PHD CPHDSG 


LSE 
CLEAR_PRIV_MASK (PHD CPHD$Q_IMAGPRIV]); 


Before the final privileges get stored, we need to check whether there 
7 a system version mismatch in any of the nase shee was mapped. (This 
mismatch was detected by the snoge header decode routine and remembered 
in the REMOVE PRIVILEGE flag.) If a mismatch was detected, and either 
CMEXEC or CMKRNL is set, then CMKRNL and CMEXEC privileges are turned 
off and an alternate status (SSS$_SYSVERDIF) is returned. 


IF Ea chatata CREMOVE_PRIVILEGE)) 
—" CO] AND CMKRNL_OR_CMEXEC) NEQU 0) 


BEGIN 
PRIVILEGES [0] = per ytees CO] AND (NOT CMKRNL_OR_CMEXEC); 
OWN_STOR TUS] = SSS$_SYSVERDIF; 


! Store the privileges in the process header and in the PCB 


MOVE _PRIV_MASK (PRIVILEGES, PCB CPCBSQ_PRIV]); 
MOVE_PRIV_MASK (PRIVILEGES, PHD CPHDSQ_PRIVMSK)); 


! The address of the image header buffer must be stored in the pointer page 
CTLSGL_IMGHDRBF = .OWN_STORAGE CBUFFER_ADDRESS); 


! Finally, if image accounting was requested for this image, then the various 
! image accounting cells must be initialized. 


es CIMAGE_ACCOUNT] OR .EXESGL_ACMFLAGS CACM$V_IMAGE) 


BEGIN 
CTL$GL_ICPUTIM = .PHD CPHDSL_CPUTIM; 
CTLSGL-IFAULTS = .PHD PHDSL PAGEFLTS3; 
CTLS$GL-IFAULTIO = .PHD CPHOSC_PGFLTIO);: 
CTLSGL-IWSPEAK = Q: 
CTLSGL-IPAGEFL = 0; 
CTLSGL-IDIOCNT = .PHD PHDSL_DIOCNT}; 
CTLSGL-IBIOCNT = .PHD CPHOSL~BIOCNT): 
CTL$GL-IVOLUMES = .CTLS$GL_VOCUMES; 
CTL$GO-ISTART 0} = .EXESGQ_SYSTIME £0}; 
CTLSGQLISTART 1} = LEXESGQ"SYSTIME (1): 
END; ! End of test for main program 


!' The USECNT cell in gach KFE must be incremented. In addition, any shared WCB 
! must have its REFCNT inc 


remented. If the adjusted REFCNT is larger than the 
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; 1963 185 ! curre he —_. peter Ae in the KFE, the KFE cell is edjysted. Finally, the ‘ 
> 1964 1 8 i DONE b he ICB is turned ON, indicating that the activation for each of : 
3 1392 : i these ites” is complete. : 
3 1907 189 1CB = .JACSGL_IMAGE_LIST; ; 
; 1968 190 DO : 
3 1969 191 BEGIN : 
; 1970 19¢ : 
3 1971 19 LOCAL ; 
3 1978 194 KFE : REF SBBLOCK, : 
: 197 195 WCB : REF $BBLOCK; ; 
3 1974 196 : 
: 1975 19 IF NOT .1CB CICBSV_DONE] : 
3 1976 198 THEN 3 
3 1977 199 4 : 
: 1978 200 4 1CB CI°S$V_DONE) = TRUE; 
3 1979 201 4 = .1CB CICBSL_KFE ; 
; 1980 oe 4 IF .KFE NEQU 
3 1981 03 4 
; 1988 04 5 BEGIN 
3; 198 05 5 al cKeeaL USECNT) = .KFE CKFESL_USECNT) + 1; 
3 1984 06 5 IF E CKFESV_OPEN } 
: 1985 07 ‘5 
3 1986 08 6 BEGIN 
: 1987 2209 6 WCB = .KFE CKFES cB); 
3; 1988 $19 6 IF .WCB CWCBSW REFCNT GTRU .KFE CKFESW_SHRCNT] 
3: 1989 11 6 THEN KFE CKFESQ_SHRCNT] = .WCB CwCBSW_REFCNTJ; 
3; 1990 si¢ 5 3 
3 1991 213 4 END; 
; 1998 gig 3 END; 
> 199 15 1CB = .1CB CICBSL_FLINK); 
3 1994 316 
; Hb 4 18 UNTIL .ICB EQLA IACS$GL_IMAGE_LIST; 
3 1997 19 IF .OWN STORAGE CRMS_BASE] NEQU 0 
; 1998 320 THEN CTCSGL_RMSBASE = .OWN_STORAGE CRMS_BASE); 
: 2000 333 RETURN SS$_NORMAL 
3; 2001 22 
3 2002 224 1 END; 
006C 00000 SET_CONTROL_REGION: 
56 0 G 9E 0000 nun rte ie inact iH gr, R6 Bees 
ss anggamne 8 se gums VR Ret Ree 7 
25 C 1 SUBL #8, SP 3 
2 AC D 1 MOVL IHO_POINTER, R : 2078 
2¢ AC D 1 MOVL KFE SEO INTER. K 3 2079 
000000 6s 00 OD 1 MOVL git SGL Ri : 208 
03 6 ‘ 6 BLBS OWN_ StoRAce, > 209 
000000006 4 7" DO 00028 1$ AGVL OSER. STACK_ADDRESS, CTLSAL_STACK#12 : 21 
98 7% AC ° 0 MOVL USER-STACK-ADDRESS, RO 3 3109 
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2c : a 


YFSSSYSIMGACT + 08C7 


uN. STORAGE 4, RO 


RO, CTLS$GL_RMSBASE 
000000006 98 n. RO 


; Routine Size: 
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2 
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CK = Lock Known File Data Base for Read A 14-Sep-1984 SYS.SRCIJSYSIM 
RSBITL "GET_LOCK = Lock Known File Data Base for Read Access' 
ROUTINE GET_LOCK = 


| > 15 | 
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=001 . t : 7-30? 96:72:38 $SFSingatt 63043 age? 


14 
} Functional Description: 


This routine locks the known file data base for read access. The image 
activator maintains this lock for the entire time that it will be openin 
files. Note that no lock is taken out during syeten initialization. unti 
INSTALL first executes and sets up the known file lists (and loads 
EXESGL_KNOWN_FILES with nonzero contents. 


WWIII Wwiroreorornen 1H 
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i 
i 
i 
i 
! 

i 
Calling Sequence: 
i GET_LOCK © 
BEGIN 
LOCAL STATUS; 

4 gERESCL_KNOUN_FILES NEQ 0 

BEGIN 


STATUS = SENQW ( 
EFN = EXESC SYSEFN 


PRMODE 
LKSB = OWN STORAGE CLOCK_STATUS_BLOCK), 
FLAGS = LCRSM_SYSTEM 


rrorororrrvrrorrrrrrrrrrn =m 


pejojolelelololo) 
ST Led teeta ek, ta eee 


Wrororororornorornony 
NOUS WN O OONOUES WN (SO OONOULS WN “OOD ONOUSWwNO 0 


vuvVvUUU 


POPIPOPIPOPONININININPONINNPoPononony 
POPOPOPINPIPYPIPYNINININPYININPINPINYPOPONY 


IF NOT .STATUS 
THEN RETURN .STATUS 
ELSE RETURN .OWN_STORAGE CLOCK STATUS); 


OOOoooooooooo0o 
FFA 


END 
ELSE ! No need to take out a lock yet 
RETURN SS$_NORMAL 
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-EXTRN SYSSENQW 
0004 00000 GET_LOCK: 


52 000000006 00 9 HOUND Ban sTORAGES4, A? aga 
itdatdit 0 o§ 8 099 TSTL XESGL_KNOWN_FILES + 2247 
7E t 8 Seon aoe oat. CSP) : 2258 
. B14 CLRQ = = (§P) : 
7E -D4 00016 CLRL = (SP) : 


<“ 


=< 
un 


monronrnonnnw 


POPOPOPOPONPINOPEPINONIPININININNNNNNY 


$2 
=r 


PUSHL_ EXESGL_S 
PUSHAB  EXESGO_K 
PUSHL #1 


o 
i) 


PUSHL 

MOVZBL ST EXESC YSEFN, =(SP) 
#11, SYSSENQW 
STATUS, 2 

MOVZWL OWN_STORAGE+4, RO 

$: MOVL #1, RO 

$: T 


88 


2268 
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; Routine Size: 63 bytes, Routine Base: YFSS$SYSIMGAC 
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RSBTTL "RELEASE_LOCK = Unlock Lock Known File Data Base’ 
ROUTINE RELEASE_LOCK = 


'¢ 

Functional Description: 

i This routine unlocks the known file data base. This happens when 

: the image activator reaches the point where there are no more files 
to open, or when an error occurs with the lock granted. 

Calling Sequence: 
' 

' 


RELEASE_LOCK () 


IF .OWN_STORAGE CLOCK_1D] NEQ 0 
$DEQ (LKID = .OWN_STORAGE CLOCK_1D]) 
SS$_NORMAL ; ! End of routine RELEASE_LOCK 


MGA 
ASE 
1 
1 
1 
1 
1 
1 
1 
1 
a 
1 . 
1 
1 
1 
1 
1 
1 
1 
1 
2 
! ELSE 


FESERPRRREARARRARNAAAE 
DONAULEWN ("OVD ONOULSWN "OO 


Moronononofnonefonofnerononofreronorrorerorn 4 


-EXTRN SYSS$DEQ 
0000 00000 Lean A 


-WORD Save nothing : 2271 
50 000000006 00 00 00002 MOVL OWN_STORAGE+8, RO ; 2285) 
OE 1 4404 BEQL 1$ ~ F 
E 7C 00008 CLRQ -(SP) :; 2287 
7E 04 00000 CLRL -(SP) : 
50 DD O000F PUSHL RO : 
000000006 00 04 FB 00011 CALLS #4, SYSSDEQ 3 
04 00018 RET 3 
50 01 DO 00019 1$ MOVL #1, RO 3; 2285 
04 0001C RET ; 2289 
; Routine Size: 29 bytes, Routine Base: YFSS$SYSIMGACT + 0A5S3 
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ZSBTTL "IMGSALLOCATE_ICB = Lock Known File Data Base for Read Access' 
GLOBAL ROUTINE IMGSALLOCATE_ICB (ICB_POINTER) = 


14 
Functional Description: 


aw 
—— 


This routine allocates an Teepe control block for use by later stages 
of the image activator. An allocation request is first made from a 
pool of previously used ICBs. A trip into kernel mode is thus only 
required if this lookaside List request fails. In either case, the 

ICB is entirely filled with zeros. 


Note that only the process allocation region is used to insure that 
no ICBs are created in PO space. This would be no problem on merged 
activations but would mess up the simple execution of an image. 

' Calling Sequence: 


' 

i 

' 

' 

i IMGSALLOCATE_ICB (1CB_POINTER) 
' 

4 

i 

bd 


MPMIPUTOTNOPURoPoToTrornorororororororrnrnn 
IWWAWWINAIAWIWWwwiwinorororororeororeorn =< 


Formal Parameter: 


ICB_POINTER = Address of cell that will receive the address of a newly 
allocated image control block. 


Status Return: 
SS$_NORMAL = ICB successfully allocated 
SSS_INSFMEM = Unable to allocate ICB 


BEGIN 


LOCAL 
SIZE, 
ICB : REF S$BBLOCK; 


IF REMQUE (.IACSGL_ICBFL, 1 
THEN IF NOT EXESAL OP 1PROC ‘ 


SSE APO OO DSOe NO UMS HOODS NP APU UO DS er RR eee oe ee 


SODWNAMNEWIN 9 OONOAOUE WN O ODNOUES WN O OD NOUE ARO OONOUS WN 
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PROPIPIPIPIPIADPNIPPONINPIPIPYNININININPYPIPINNONNONONYNINYD: 


007C 00000 -ENTRY IMGSALLOCATE_ICB, Save R2,R3,R4,R5,R6 ; 2292 


SYSIMGACT = Ima 
IMGSALLOCATE_IC 


; Routine Size: 


Activator System Service 
= Lock Known F 


1 3 
000000006 
56 


0124 


2A22792AO MONMO™ 


xo 
me 
OV1'D0BWXO 


YFS$SYSIMGAC 


le Data Base fo 
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H 15 
aaSep-i9be 1:14:08 — ESYs-snedsvSimeatt 032; 


S6L ICEL, RO 
RO), ICB 


ie 
ti 

#100 R1 
EXESA ALOP1PROC 
no, RO 

#0, (SP), #0, #100, (ICB) 


Her 


OINTER 


—_— - ——_ - --—_, 
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ZSBTTL ‘IMGSDEALLOCATE_ICB - Deallocate an Unused ICB' 
GLOBAL ROUTINE IMGSDEALLOCATE_ICB (ICB) : NOVALUE = 


14 
Functional Description: 


This routine deallocates an ICB that was not used. This can be due to 
one of three reasons: 


The current image is being rundown, thus releasing all of its 
image control blocks back to pool. 


An ICB was allocated during image activation for an image that 
has already been activated. 


An error occurred, requiring that all images activated during the 
current call be eliminated. 


If the ICB was allocated from P1 space, it is deallocated to a Linked 
list of free I1CBs that will be used during Later activations. ICBs 
allocated from PO space use the normal deallocation routine. 


POPOIPOPIPUPIPUPOPOPOPPoNoPofnonofpypnnn 


Calling Sequence: 
IMGSDEALLOCATE_ICB (ICB_ADDRESS) 
Formal Parameter: 
ICB_ADDRESS = Address of ICB that is being deallocated 


ICB : REF $BBLOCK; 
BIND VA = ICB : $BBLOCK; 
IF .VA CVASV_P1) 
THEN INSQUE T.1(CB, .JACSGL_ICBFL 
ELSE EXESDEAP1 (.1CB, .1CB-CICBSw 


! Insert at tail of lookaside List 


FWD SO ODNAUES WN 9 OONAUE WN OOO NOUS WN OOONOU LS Wr 


SPEIER III II III a i a hd 


POPIPIPIPINIPYNYPYINIPINININPINPINYNIPOPINONPONINY 


C0009 0908 SI NIN SIN NINN NOOO 


000¢ 00 .ENTRY IMGSDEALLOCATE_ICB, Save R2.R3 : 2343 
50 04 ac D 00 MOVL ¥ : 2381 
0c 07 AC 0 a C 6, VA+3, 1$ : 2380 
51 000000006 E MOV 1ACSGL itpit +4, R1 : 2381 
00 81 6 INSQUE (RO), @O(R1) 
51 08 a0 C 00017 1$ MOVZWL 8(RO), RI > 2382 
000000006 00 16 00018 EXESDEAP1 ; 


SYSSIMGACT 
voe-001 


3; Routine Size: 


34 bytes, 


SYSIMGACT = Image Activator S$ 
IMGSDEALLOCATE_ 


CB = Dealloca 


Routine Base: 


Me Service 
e an Unused ICB 


04 00021 
YFSSSYSIMGACT + 0AB7 


13 15 


Sep-1 
= ep-1 


She Site 


RET 
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ROUTINE SET_VECTORS = 
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Functional Description: 


Y 


yn 
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Ss 
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This routine takes the privileged vector entries that contain RSB 
instructions and replaces each with a JSB instruction. 


Calling Sequence: 
SET_VECTORS () 

Input Parameters: 
none 
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IACS$AW_VECSET = Array that locates the dividing point in each vector 
List between these vectors that already existed and those that were 
sage as pore of the latest activation. This is the starting point for 
e search. 


CTLSA_DISPVEC - This address locates the start of the two-page area 
nee ie the privileged vectors. The first longword of each area 
contains the current end of the vector List. This is the end point for 
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Implicit Input: 
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the search. 
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BEGIN 


LITERAL 
ABSOLUTE_MODE = %x'9F° 
JSB_ABSOCUTE = (ABSOLUTE_MODE * 8) OR OP$_JSB : UNSIG 
RSB-ABSOLUTE = (ABSOLUTE-MODE * 8) OR OP$-RSB : UNSIG 


LOCAL 
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INCRU I FROM 0 TO 3 DO 
BEGIN 


BI 
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ND 
END POINT = CTLSA_DISPVEC + (.1 * 256) : LONG, 
DISPVEC = CTLSA_DISPVEC + (.1 * 256) : VECTOR (256,BYTE); 


C D 
L$A_DTS 

J = .IACSAW_VECSET C.1); 

WHILE .J LSSU .END_POINT DO 


BEGIN 
BIND OPCODE = DISPVEC C.J] : WORD; 


IF .OPCODE EQLU RSB_ABSOLUTE 
THEN OPCODE = JSB_ABSOLUTE; 
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ZSBTTL "ERROR_CLEAN_UP = Clean Up after an Error is Detected’ 
ROUTINE ERROR_CLEAN_UP : NOVALUE = 


‘+ 
Functional Description: 


This routine cleans up when an error is detected after some successful 
work has been completed. 


ALL ICBs on the WORK List are simply deallocated. 
ICBs that exist on the IMAGE (so-called done) List with the DONE bit 
clear indicate images that have been successfully activated as a part 
of this activation before an error was detected. 

The address space associated with these images is deleted. 

The channel on which each image file was opened is closed. 

Each ICB is then deallocated. 


Note that an ICB with no addresses re mapped will have an address 
range of -1, -1. The error from SDELTVA in this case is ignored. 


Calling Sequence: 
ERROR_CLEAN_UP () 

Formal Parameters: 
none 

Implicit Input: 


IACSGL_IMAGE_LIST - List of ICBs representing images that have been 


successfully activated 
IAC$GL_WORK_LIST - List of ICBs representing work left to be done. 
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BEGIN 
LOCAL 
CB : REF S$BBLOCK, 
NEXT_ICB : REF $8BLOCK; 
! Simply deallocate the ICBs in the work List 


WHILE NOT (REMQUE (.JACSGL_WORK_LIST, ICB)) DO 
IMGSDEALLOCATE_ICB (.10B); 


! Traverse the done List, looking for ICBs with the done bit not yet set. 
NEXT_ICB = .JACSGL_IMAGE_LIST; 
WHILE .NEXT_ICB NEQA JACS$GL_IMAGE_LIST DO 


SYSSIMGACT 


Vv04-001 


95 
9 


; Routine Size: 


N 15 
YSIMGACT = Image Activator System service 19-3007 138 96:79 
RROR_CLEAN_UP = Clean Up after an Error is Det 14-Sep-1984 15:14 
11 IF_ .NEXT_ICB CICBSV_DONEJ 
\§ THEN 
1 NEXT_ICB = .NEXT_ICB CICBSL_FLINK) 
14 ELSE 
15 BEGIN 
1 REMQUE (.NEXT_ICB, ICB); 
1 SDELTVA (INADR = {CB 1EB$Q_ADDRESS RANGE) ; 
18 SDASSGN (CHAN = .ICB CICB$W°CHAN]); 
19 NEXT_ICB = .1CB CICBSL_FLINR; 
520 IMGSBEALLOCATE_ICB (.10B); 
; 1 END; 
2 § IACSGL_IMAGCTX CIMAGCTXSV_SETVECTOR] = FALSE; 
525 1 END; 
~EXTRN 
001C 00000 ERROR CLEAN Ps 
54 000000006 00 9€ 00002 MOVAB 
29 000000006 00 9€E 00009 1$: MOVAB 
5 00 B80 OF 00010 REMQUE 
09 1D 00014 BVS 
53 DD 00016 PUSHL 
FF7C CF 01 FB 00018 CALLS 
EA 11 00010 BRS 
52 64 DO O0001F $3 MOVL 
50 64 9E 000 é $ MOVAB 
50 52 D1 000 CMPL 
30 13 00028 BEQL 
05 10 a3 98 E1 0002A BBC 
5 62 DO 0002F MOVL 
EE 11 00032 BRB 
53 6 OF 00034 4$ REMQUE 
7 C 308 7 CLRQ 
48 <A3 9F 00039 PUSHAB 
000000006 90 03 FB 000 ¢ CALLS 
E OE A3 3C 0004 MOVZWL 
000000006 98 01 Fe 00047 CALLS 
2 93 DO 0004E OVL 
3 dD B00) PUSHL 
FF41 CF 1 fo CALLS 
c8 1 et BRB 
000000006 00 01 8A OO0SA 5$ BICB2 
04 00061 RET 


98 bytes, Routine Base: YFSSSYSIMGACT + OBIE 


138 USS! SnebS¥SinGatt B30¢3 


SYSSDELTVA 


™m 


R3,R4 
_IMAGE_LIST, R4 
=WORK IST, RO 


ROOK 
DAPMD 
oan 
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» IMGSDEALLOCATE_ICB 
C$GL_IMAGE_LIST, NEXT_ICB 
C$GL-IMAGE-LIST, RO 
XT_ITB, RO 


6(NEXT_ICB), 4$ 
CB), "NEXT_1CB 


a 
-1(B), ICB 
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IMGSDEALLOCATE_ICB 
« IACSGL_IMAGCTX+2 
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SYSSIMGACT SYSIMGACT = Image Activator System Service 16-5e -1984 02:39: AX-11 Bliss-32 V4.0-74 Page 
vous 00s GET_OTHER_ IMAGE >= Open Primary Image File 1 =360 7138 96:72:38 ats SRE dSYSIMGALT 03005 . a3 
; g 1 § } RSBTTL "GET_OTHER_IMAGE = Open Primary Image File’ 
; 1§ : | ROUTINE GET_OTHER_IMAGE (1CB) = 
: 2315 0 114 
; 1 2 1 ! Functional Description: 
: 18 é - 1 i This routine is called when the image passed to the image activator is not 
$ 23) 4 1! really the wane that should be activated. This situation occurs in the 
3 0 2 . 34 case of compatibility mode images and other specialized cases. The general 
; ; 1 8 ! operation of this routine is as follows, 
: 5 : 5 1 Information about the ft ig ny | is stored in various places so 
3 2324 339 1 that it is available to the image that eventually gets activated. 
; $2 e79 1! 
3 : § 2) } A new image name is selected based on the alias code. 
: 326 308 } ; This new image file is opened and its header decoded. 
: 36 545 1 Activation continues with the secondary image replacing the original image 
3 233 208 : } as the target of activation. 
; 338 e¢8 ! Calling Sequence: 
; 2335 330 GET_OTHER_IMAGE (ICB address) 
: 2338 226 : | Input Parameter: 
; 4s 222 : ! ICB - Address of image control block that describes the primary image 
: 2341 $322 1 ' Output Parameters: 
3 306 2557 1! 
‘Mc aa 
; tor sect : Implicit Output: 
> 2347 $296 1/ The image name of the primary image is stored in the compat ibility mode 
: 2348 565 1! data page. The channel on which the primary xnege is opened (and its KFE 
3 $08 208 : address if any) is stored for later return to the caller. 
; $2) 288 : Assumption: 
; $324 568 1 | This routine can only be called from the main loop in the image activator. 
3: 2354 297 . 3 This means that the primary buffers (FAB, NAM, IHD, etc.) describe the 
3; 2355 570 1! original image. ' 
3 BAY 
; $39 378 BEGIN 
; 2360 fe MAP 
; 2361 2/8 IcB : REF SBBLOCK; 
; : 318 BIND 
3 57 IHD_CTX = .1CB_ CICBSL_CONTEXT) : SBBLOCK 
> 2365 580 ICBTNAME = ICB CICB$T TMAGE_NAME) : VECTOR C, BYTE), 
; 581 FAB = PRIMARY_FAB : $SBBLOCK, 
; 582 NAM = PRIMARY_NAM : SBBLOCK, 
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MAGE = Open Pr nary Image File 14 eet h ? 32:88 SYS.SRC SYSIMGACT 830-5 


STORED_NAME = CTLSAG_CMEDATA : VECTOR C, BYTE); 


he image name for a type 2 image is stored in the last 126 bytes of the 
irst block of the image header as a counted ASCII string. 


MAP 
INPUT_BUFFER : VECTOR (512, BYTE]; 
ND 
TYPE_2_IMAGE_NAME = 
INPUT_BUFFER (512 = 128] : VECTOR C128 = 2, BYTE); 


! Three of the four cases handled by this routine activate specific images 
! whose names are listed here. (The fourth case extracts the image name from 
! the end of the first block of the image header.) 


WDOOOOOOOOOMOMCCQCICICD -1H 
DONA EWN" OODNOUILSW 1 
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D 
RSX_NAME = SDESCRIPTOR ('RSX'), 
BPA-NAME = $DESCRIPTOR ('BPA') 
LOGIN_NAME = S$DESCRIPTOR (*LOGINOUT’), 


! ALL four cases use SYSSSYSTEM as the default directory string 
SYSTEM_NAME = SDESCRIPTOR ("SYSSSYSTEM: .EXE'); 
CAL 

NEW_IMAGE_NAME, 


G 
NEW" IMAGE_NAME_DESC : SBBLOCK CDSC$K_S_BLNI, 
STATUS; 


OWN_STORAGE COTHER_CHANNEL] = .1CB CICB$W_CHANI; 
OWN-STORAGE COTHERKFE_ADDRESS] = .FAB CFABSL_CTX); 


! Now perform the steps that are specific to the type of other image that is 
! being selected. The name of the image to activate is the most important 
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part of this step. 


CASE .IHD_CTX CCTX_W_ALIAS] FROM IHDSC_RSX TO IHDS$C_CLI OF 
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SET 
CIHDS$C_RSX): 


! This is an image eryeeiee 4 the RSX-11M task builder. Activate 
! SYSSSYSTEM:RSX.EXE in its stead. 


NEW_IMAGE_NAME = RSX_NAME; 
CIHD$C_BPA): 


! There is no supported way that this type of image can be created. We 
! will activate SYSSSYSTEM:BPA.EXE anyway and let the chips fall ... 


NEW_IMAGE_NAME = BPA_NAME; 
CIHD$C_ALIAS): 


< 
Ad 
od 


o- 
osm 
=a 


Ss 
V 


et ee ee el el te el 
Wr OOONOu 
PAPAS OSASASASO m< 


DPSS EE EEE PPP PEE $Y 


POPIPIPIPIPIPIPINPININININIPPPoPefpornonofrofnonny Rg 


Dat el et ae ee ee 


—OVOVONOUES WN“ OVDONOUS 


SRLS 


AAO 


MINMOMEPONPOPoPonofonony 


AN ~ AAO w 
SOOWONAME WN $9 DOONAN WN OOONAULS AR OOONOUSWR—O 1 


oDc SNS NNN SOOOOOO- 


a 


oO 
co 


D 16 
CT = Image Activator System Service 16-Sep-1984 02:39: Ak-11 Bliss- 4.0-74 
ER_IMAGE = Open Primary Image File 12286871382 96:72:38 g¥S.SRe UPS Tagatt o3oe3 


image in the last 128 bytes of the first block of the image header. 
(The actual name is restricted to 1 bytes because the last word 
of the first block is reserved to contain the code word and the 
string contains a count byte.) 


This is a special {oem of image het contains the name of a second 


BEGIN 
NEUDIMAGE-NAMEZDESC CDSCSA=POINTER] =" TYPECS-IMAGE-NAME £1]5 
NEW_IMAGE_NAME = NEW_IMAGE_NAME_DESC; 
END; 
CIHD$C_CLIJ: 


! The image is a command Language interpreter whose name was passed to 

! the Create Process system service. If this is the activation of a main 

! progres (and not a merged activation, the usual way to put a CLI into 

! Pl space), we will activate SYSSSYSTEM:LOGINOUT.EXE. In this case, we 

! will close the CLI image file first (by deassigning the channel) because 
! LOGINOUT uses a more restrictive form of SOPEN than occurred above. 


IF .OWN_STORAGE CMAIN_PROGRAM] 
BEGIN 


SDASSGN (CHAN = .1CB CICBSW_CHAN]); 
NEW_IMAGE_NAME = LOGIN_NAME; 


END 
ELSE 
RETURN SS$_NORMAL ; 
COUTRANGE): 
RETURN SS$_BADIMGHDR; 
TES; 


! Any context established by the original image must be cleared before 
! the activation continues. 


1CB bf cost Fags = 0; ! Clear previous activation flags 
ICB CICBSL_IHD) = 0; ' Clear pointer to resident header 
IHD_CTX CCTX_L_IHDBUF] = PRIMARY_IHD; ! Reestablish IHD buffer 


! If the primary image was a CLI (type 3), only the file name is stored. In 
! all other cases, the entire resultant (or expanded) string is stored. 


IF .IHD_CTX CCTX_W_ALIAS] EQL IHDSC_CLI 
THEN 


BEGIN 
STORED NAME [0] = .NAM [NAMSB_NAME]; 
ENSAOVE (.STORED_NAME CO], .NAM CNAMSL_NAME], STORED_NAME [1]); 
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16 
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v04-001 GET_OTHER_ IMAGE >= Open Pr nary Image File 13808-1984 96:72:08 oYS SREISYSINGACT 03263 
: 24 697 ELSE 
3 iB 938 BEGIN 
: 2484 $2 STORED_NAME (0) = .NAM [NAM$B et 
: iss £0 CHSMOVE (.STORED_NAME COJ, .NAM CNAMSL_RSAJ, STORED_NAME {1]); 
: 26 19 : 
; 2488 7 i ! Open the secondary image file, decode the image header, and resume processing 
3; 2489 704 ! in the main routine as if the secondary image were the one selected for 
; e+ £09 ! activation. 
3 re ie ICB_NAME [0] = 0; ! Force a new name to be stored in ICB 
5 2494 709 STATUS = IMGSOPEN_IMAGE ( ! Open the image file 
>: 2495 710 -NEW_IMAGE_NAME, z . 
> 2496 711 SYSTEM_NAME, 
3; 2497 ie PRIMARY_FAB, 
: 2498 71 PRIMARY_NAM, 
3: 2499 714 RESULT_RNAME, 
; 2500 715 . : 
; 2501 716 2 IF _NOT .STATUS 
H $206 717 THEN RETURN .STATUS; 
; 250 at 
: 2504 719 STATUS = IMGSGET_HEADER (.1(B); ! Decode and store away the IHD contents 
>; 2505 sist RETURN .STATUS; 
3; 2506 721 
; 2507 2722 1 END; 


58 53 52 poe? P.AAE: .ASCII \RSX\ 
0088 -BLKB j 


00000003 00B84 P.AAD: <LONG 3 
00000000" 00888 “ADDRESS P.AAE 
41 50 42 OOB8C P.AAG: <ASCII  \BPA\ 
OB8F “BLKB 1 
00000003 00B90 P.AAF: <L 
00000000' 00894 “ADDRESS P.AAG 
54 55 4F 4E 49 47 4F 4C 00B98 P.AAIL: ASCII \LOGINOUT\ 
00000008 QOBAO P.AAH: .LONG 
00090009" OBA4 ADDRESS P.AAI 
45 58 45 2 3A 4D 45 54 53 59 53 24 53 59 OBAS P.AAK: <ASCII \SYSSSYSTEM: .EXE\ 
0088 “BLKB 1 
QO00000F OOBB8 P.AAJ: <LONG 15 
00000000" 00BBC “ADDRESS P.AAK 
RSX_NAME= P.AAD 
BPA-NAME= P.AAF 
LOGIN_NAME= P.AAH 
SYSTEM_NAME= PL AAJ 


O7FC 00000 GET_OTHER_IMAGE: 
.@ORD $ 
5A F OAR 9 002 MOVAB RSX_NAME, R10 
9 990000 0G 0 9 MOVAB STORED NAME, R9 
58 000000006 00 i 00D HOVAB OWN STORAGE+14, RB 
Se 8 C2 00014 SUBL2 #8, 7SP 


e R2,R3,R4,R5,R6,R7,RB,RI,RIO 
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SYSSINGACT SIMGACT = Image Activator System Service 16- 
v04-001 TLOTHER_IMAGE = Open Primary Image File 14- 
4 AC DO 00017 
MAE 8 ur 
6 —E Ad B bi 
06 Ag FDOAB C8 OD 3 
9 08 A2 AF 8 
0028 001 001 000D 02E 
50 44 BF 9A 00036 
ge OO3SA 
57 SA ‘ $8 B 
res 0 ‘ 
57 OC AA a 004 
29 «(1 Ohee 
6E F713. C8 9B 00046 
04 6s F714 C8 9E 0004B 
5 6 7 0051 
19 11 00054 
11 F2 AB 2 0056 
7E OE A6 3C QOOSA 
000000006 00 01 FB 464 
57 1C AA 9E 0006 
04 11 00069 
50 01 00 00068 
04 0006E 
10 A6 D4 sie 
50 Ad 040 Ore 
04 a F793 C8 9E 0007 
0 OE A2 61 00078 
OF ie 0007F 
69 FEIE C8 9 Bao) 
51 69 9A 00086 
50 FE2F C8 DO 4 
0D 11 44 
69 FDE6 C8 90 000 
51 69 9A 00095 
50 FDE7 C8 B0 0098 
01 Ag 60 51 § 0090 
14 Ad 94 Boag 
56 DD 000A 
FEF C8 9F QO0A7 
FDE C8 9F OOOAB 
FD9 C8 OF Bone 
34 AA 99F 00083 
57 DD 00086 
F667 =F 96 Fe 088 
07 E OBD 
56 DD 000C 
F887 =CF 01 FB O00C 
04 000C 
; Routine Size: 200 bytes, Routine Base: YFSSSYSIMGACT + OBCO 


1$: 


2$: 
3$: 
4$: 


5$: 


6$: 
7$: 


8$: 


9$: 


108: 


71984 99:92:08 


MOVL 
MOVL 
MOVW 
MOVL 
CASEW 
RD 


MOVZBL 
R 


s-32 v4.0 


AX-11 Oi ies: 
SYSIMGACT.B 


SYS.SRC 


we 

hro™N 
he 
hor 


~STORAGE+14 
=STORAGE+20 


aun 


R X_NAME, NEW_IMAGE_NAME 
BPA. NAME, NEW_IMAGE_NAME 

Ty PE_2_IMAGE_NAME, NEW_IMAGE_NAME_DESC 
TYPE~2-IMAGE_NAME+1, NEW_IMAGE -NARE _DESC+4 
NEW. IMAGE _NAME_DESC, NEW_IMAGE_NAME 
OWN_STORAGE, 6$ 

14 cR6) ($B) 
SySSDASS 

te N_NAME, satu. IMAGE _NAME 

1, RO 

16(R6) 

80(R6) 

PRIMARY. IHD, 4(R2) 
4c R2), #3 
NAM+59, ugyorep NAME 

sto TOREDN RT 
8 

NAM+3 STORED NAME 
STORED_NAME, Ri 
NAM+ 
R1, (RO), 
20(R6 
R6 
RESULT_NAME 
PRI 


STORED_NAME+1 


RIMARY_N 
Hed “FAB 


AME 
new = TRSSPEAT TAGE 
STATUS, 10$ 


R 
#1, IMGSGET_HEADER 


SSeS Se Se Se Se Se Be Be Be Se Se Se Se Se Fe Be Se Se Se Se Se Be Be Be Be Be Be Be Se Se Ge Ge Se Be Fe Be Se Fe Fe Fe Se Se Be Fe Be Be He Se Be 
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(17) | 


Sete Se Se Se tee 


16 
SYSSINGACT SYSIMGACT = Image Activator System Service 18- -Sep- 138% 9 +393 38 AX-11 abiis ss-32 ie to Page 71 
-001 GET_OTHER_IMAGE = Open Primary Image File 14-Sep- 214: SYS.SRCISYSIMGACT.832; (18) 
09 723 «1 
19 f : : END ! End of module SYSSIMGACT 
12 726 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
:  YFS$SYSIMGACT 3208 NOVEC, WRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ounsaene Syabols oooco<<- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 174 0 1000 00:01.8 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD,INITIAL,OPTIMIZE)/LIS=LIS$:SYSIMGACT/OBJ=OBJ$:SYSIMGACT MSRC$:SYSIMGACT/UPDATE=(ENH$:SYSIMGACT) 
Size: 3111 code + 97 data bytes 
Run Time: 01:07. 


Elapsed Time: 01:34.6 
Lines/CPU Min: 2423 
Lexemes/CPU-Min: 24715 
ponery Used: 301 pages 
Compilation Complete 
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